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INTRODUCTION 



Every type of electronic computer is designed to 
respond to a special code, called a machine lan- 
guage, that differs for different types of computers. 
A program (set of instructions) telling a computer 
what steps to perform to solve a problem must ulti- 
mately be given to the computer in its own lan- 
guage. However, FORTRAN makes it unnecessary 
for the programmer to learn the machini, language 
for a specific computer. Using FORTRAN, the 
programmer states in a relatively simple language, 
resembling familiar usage, the steps to be carried 
out by the computer. The program written in the 
FORTRAN language is entered into the computer 
and is automatically translated by the FORTRAN 
compiler into a program called the object program. 
The computer solves the problem by executing the 
object program which is expressed in a language 
the machine can understand. 

Virtually any numerical or logical procedure can 
be expressed in the FORTRAN language. The 
FORTRAN system is intended to substantially 
reduce the time required to produce an efficient 
machine language program for the solution of a 
problem, and to relieve the programmer of a con- 
siderable amount of manual clerical work, min- 
imizing the possibility of human error by relegating 
the mechanics of coding and optimization to the 
computer. 

The name FORTRAN (FORmuIa TRANslator) 
was chosen because many of the statements re- 
semble algebraic formulas. These statements define 
the computer operations and can be grouped into 
five classifications: 

Arithmetic and logical 

Control 

Input/output 

Specification 

Subfunction 

FORTRAN was originally written by IBM for the 
IBM 704 but has since been offered by several 



computer manufacturers. FORTRAN is relatively 
easy to learn. Of great importance is the fact that 
a FORTRAN source program can be compiled on 
many different computers, thereby avoiding the 
need for language translations when changing from 
one type of computer to another. 

FORTRAN IV processes the standard FORTRAN 
language specified by the *United States American 
Standards Institute (USASI); it can express any 
problem of numerical computation. In particular, 
it deals easily with problems containing large sets of 
formulas and many variables, and permits variables 
to have up to three independent subscripts. For 
problems in which machine words have a logical 
rather than a numerical meaning, provisions in the 
FORTRAN language permit logical computation. 
In instances where FORTRAN may not Be suited 
to the specific problem solution, provision has been 
made for calling machine language subroutines 
with FORTRAN statements. Certain statements 
in the FORTRAN language equip the object pro- 
gram with its necessary input and output programs. 
Those which deal with decimal information include 
conversion to and»from binary and permit consid- 
erable freedom of format in the external medium. 
Arithmetic in the object program is generally per- 
formed with floating-point numbers. These numbers 
provide 23 binary digits (about 7 decimal digits) of 
precision and may have magnitudes between 10-^= 
(DDP-24, -124, -224) or lO^^" (DDP-116, -516). 
Full-word, fixed-point arithmetic, double precision 
floating-point arithmetic and complex number arith- 
metic is also provided. 



Consider the quadratic equation: 

3x= 4- 1.7x - 31.92 = 



•The Proposed American Standard FORTRAN (see Ap- 
pendix E) was followed in writing the FORTRAN com- 
piler described in this manual. 
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The algebraic representation for one of the two 
roots of the equation could be written: 



ROOT = 



-B + Vb= - 4AC 



2A 

where: A = +3 
B = +1.7 
C = -31.92 

The complete FORTRAN program which describes 
this calculation and provides for output of the re- 
sult may be written in eight separate statements, 
including the two statements which provide for the 
end of the job, as shown in Figure 1. 

The first statement means: assign the floating- 
point value 3 to the variable A. The next two 
statements have a similar meaning. The fourth 
statement means: evaluate the expression on the 
right side, and assign the result to the variable 
ROOT. The fifth statement outputs the computed 
value of ROOT in a form indicated by the sixth 
statement. The last two statements indicate that 
the job is complete. 



Notice the sequential nature of the program. The 
computer executes instructions in the same order 
as the order of the statements. For example, if the 
fourth statement were to be made the first state- 
ment, the computer would evaluate ROOT before 
obtaining the desired values of A, B, and C. ROOT 
would therefore be evaluated using arbitrary un- 
known values for these variables. 



Figure 1 illustrates the use of variables. However, 
the same result could be obtained by writing state- 
ment number 4 as shown in Figure 2 in which 
the numerical values appear in the statement de- 
scribing the evaluation of ROOT. 

FORTRAN coding and operating procedures are 
given in this manual. In learning the FORTRAN 
system, the novice will profit by reading texts on 
the FORTRAN language, such as "A Guide to 
FORTRAN Programming" by D. A. McCracken 
(Wiley), "FORTRAN Autotester" by Smith and 
Johnson (Wiley), or "Comprehensive FORTRAN 
Programming" by James N. Haag (Hayden). 
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SECTION I 
GENERAL FORMAT 



FORTRAN CHARACTER SET 

The FORTRAN language requires the use of the 
following characters, to specify constants, variable 
names, statement identifiers, or any other element 
of the language: 

LeHers 

A, B, C, D, E, F, G, H, I, J, K, L, M, N, 0, P, Q, R, 
S, T, U, V, W, X, Y, Z 

Digits 

0, 1, 2,3,4, 5,6, 7, 8, 9 

Spec/a/ 

Period or decimal point (.), comma (,), plus (+), 
minus or hyphen (— ), slash (/), asterisk (*), equals 
(=), open parenthesis ((), close parenthesis ()), 
apostrophe ('), dollar sign ($), and blank (or 
space) 

' LINE FORMAT 

A line is made up of four fields: Statement Num- 
ber Field, Line Continuation Field, Statement 
Field, and Identification Field. A coding form 
showing these fields appears at the end of the In- 
troduction Section. 

Statement Field (Figure 1—1) 

Any arithmetic statement, specification statement, 
control statement, I/O statement or function 
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statement as described in later sections may appear 
in the statement field (card columns 7-72). Except 
in the Hollerith descriptor within a FORMAT 
statement (see I/O Section), blanks (or spaces) 
are ignored and may be used freely for appearance 
purposes. 

Line Continuation Field (Figure 1-2) 

If a FORTRAN statement is so large that it can- 
not conveniently fit into' one statement field, the 
statement field of as many additional lines as is 
needed may be used to specify the complete state- 
ment. Continuation lines must have a character 
other than blank or zero in column 6. A statement 
may have any number of continuation statements 
with the following exceptions: (1) a DO statement 
must be on one line, and (2) the equals character 
( = ) of an arithmetic statement must be on the 
first line if continuation lines are used. Any hne 
which is not continued, or the first line of sequence 
of continued lines, must have a blank or the digit 
in column 6. 
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Statement Number Field (card columns 1-5) 

If the statement located in the statement field is to 
be referenced by another statement (such as a GO 
TO statement), a reference number is placed in the 
statement number field (card columns 1-5). This 
reference number is made up of digits only. Leading 
zeros and all blanks in this field are ignored. For 
example, the reference numbers shown below are all 
of the same value. 




Specification statements (Section IV), FUNC- 
TIONS, SUBROUTINE, or END statements, or 
arithmetic statement functions should not have 
statement numbers. All other statements may have 
a number whether or not that statement is referred 
to by another statement. Statement numbers need 
not be in sequence. (See Figure 1—3.) 



Identification Field 

The last eight columns of a line (card columns 
73-80) are reserved for sequence identification. 
This field is ignored by the compiler and may be 
left blank if desired. 

Comment Lines 

Any line which star*^s with the letter "C" in coluron 
1 is presumed to be a line of comments. This line is 
printed onto any listings requested but is otherwise 
ignored by the compiler. The statement number, 
line continuation, and statement fields may be used 
in any format for comment purposes. (See Figure 
1—4.) The identification field, however, is used for 
sequencing only. A blank line is ignored. 

Special Control Lines 

A line that starts with a dollar sign character ($) 
in column 1 is presumed to be a special control 
line. The digit in column 2 indicates the type of 
control, and columns 3-72 are ignored and may be 
used for comments. Columns 73-80 are used for 
card sequencing purposes. The following codes are 
currently used as shown in Figure 1—4, 

$0 End of job 

$1 Continuation segment of a chain job 

$2-$9 Spares 

The use of the control lines is explained in later 
sections. 
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CONSTANTS AND VARIABLES 

Any programming language must provide a means 
of expressing numerical constants and variable 
quantities. FORTRAN IV allows six types of con- 
stants and five types of variables to be expressed 
in an arithmetic expression: integer, real, double 
precision, complex, logical, and Hollerith. 



# 
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figure 1—4 

Constants 

Constants may have a sign and must start with a 
digit or a decimal point following one of the formats 
defined in Table 1—1. 

Variables 

Variable names must start with a letter, and con- 
tain one to six characters made up of letters and 
digits only. The mode of the variable and the num- 
ber of memory words reserved for it are defined in 
Table 1-2. 

SUBSCRIPT NOTATION 

If programming were done using only the types of 
variables presented in the preceding pages, labo- 
rious programming would be necessary to carry out 
relatively simple iterative calculations or logical 
steps such as those encountered in the addition of 
two vectors or the selection of a specific entry in a 
list of numbers. However, it is possible to employ 
the subscript notation of mathematics to simplify 
the programming of such problems. 
A mathematician would denote that ci is the sum 
of the vectors (ai, 82, as) and (bi, h?., b.)) as follows: 



Note that the first part of the statement (c i — a, 
+ b 1) is a general statement which becomes, in 
effect, three specific statements: 
Ci = ai-f-bi 

C2 = SLi + hi 
C;i = a:i-|-b.i 

when the values 1,2, and 3 are assigned to i. 

By using the FORTRAN language, it is possible to 
make general statements like c 1 = a i-|-b i, and to 
make other statements which assign the desired 

values to i. When a general statement is executed, 
it is always executed in one of its specific senses. 
For example, if the variable I has the value 3 when 
the FORTRAN equivalent of ci = a i-|-b 1 

C(I) - A(I) -I-B(I) 
is executed, the values denoted by A (3) and B(3) 
are added and the sum is assigned as the value of 
C(3). Thus, to compute the sum vector 

(C(I), C(2), C(3)) 
it is necessary to execute the general statement 
three times, with I being equal to 1 the first time, 
2 the second time, and 3 the third time. Therefore, 
in addition to providing for arithmetic statements 
with subscripted variables, it is necessary to pro- 
vide a method of stating that a given set of such 
statements should be executed repetitively for 
certain values of the subscript. The FORTRAN 
statement which provides this ability is called a 
DO statement. An example of a DO statement is 

DO 20 I = 1, 250 

This statement instructs the computer to execute 
all statements which immediately follow, up to and 
including the statement numbered 20, 250 times 
(the first time for I = 1, the second time for I = 2, 
and so on, and the last time for I = 250), and then 
go on to the statement following statement 20. 
Thus, to return to the example of vector addition, 
the FORTRAN statements necessary to add A (I) 
and B(I) are: 



C I 



a i-j-b 



i = 1,2,3 




1-3 



BX32 



TABLE 1—1. 
CONSTANT FORMAT 



MODE OF CONSTANT 



GENERAL FORMAT 



EXAMPLES 



INTEGER 
(Occupies 1 word) 



REAL 

(Single precision floating 

point — occupies 2 words) 



1 to 7 decimal digits (only 5 digits for DDP-116, -516). A pre- 3 

ceding + or — sign is optional. The magnitude of the constant +1 

must be less than 8388608 (32768 for DDP-H6). No decimal —28987 

point is allowed. 

Any number of decimal digits may be used but only the most 17. 

Significant 7 digits will be retained. 5.0 

-.0003 

The requirement of a decimal point in constants having a decimal .0000005 

exponent is also optional. 0.0 

A preceding + or — sign is optional. 



DOUBLE 

PRECISION 

(Double precision floating 

point — occupies 3 words) 



COMPLEX 

(Two single precision 
floating point constants 
— occupies 4 words) 



LOGICAL 
(Occupies 1 word) 

HOLLERITH 
(Occupies 2 words) 



A decimal exponent with magnitude less than 76 (38 for DDP-116, 
-516) and preceded by an E may follow the constant, but is optional. 

A decimal point must be included at the beginning, at the end, or 
within the constant. 

Any number of decimal digits may be used (followed by a decimal 
exponent) but only the most significant 13.7 (11.5 for DDP-116, 
-516) digits will be retained. 

A decimal exponent with a magnitude less than 76 (38 for DDP- 
116, -516) and preceded by a D must follow the constant. 

A preceding + or — sign is optional. 

A decimal point is optional and may be included either at the 
beginning, at the end, or within the constant. 

Two REAL format constants separated by a comma and enclosed 
by parentheses. 

The first constant represents the real part of the complex con- 
stant and the second constant represents the imaginary part. 

Either constant may be preceded by an optional + or — sign. 

The word TRUE or FALSE preceded and followed by a decimal 
point. TRUE generates an INTEGER format 1 and FALSE generates 
an integer FORMAT 0. 

An integer constant, followed by the letter H, followed by the 
integer constant number of characters (blanks included) equal to 
the Integer constant. 

Any acceptable FORTRAN character including blank may be used 
as an integer constant and can be up to 4 characters long (2 
characters for DDP-116, -516). 

This type of constant is only accepted in CALL or DATA state- 
ments. 



5.0E-7 
+5E-7 
5.0E3 

.5E-f3 
5000. 

1.736247D5 
3002625D-4 
IDO 
1234.567890123DO 



(17.0,5.0) 
(-2.35,1. E-6) 



.TRUE 
.FALSE 

IHX 
4HB.24 
4HTEST 
4H Z 
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When the statement numbered 2 is encountered, 
the values of C(l), C(2), and C(3) will have been 



GENERAL FORM 



EXAMPLES 



A real, integer, double 
precision, complex, or 
logical variable followed 
by parentheses enclosing 
1, 2, or 3 subscript 
expressions separated by 
commas. The subscripts 
must be integer and one 
of the following formats: 

k 

V 

v±k 
c*v 
c*v±k 

k or c = integer constants 
V = integer variable 



A(r) 

K(3) 

BETA (5*J - 2,K+2,L) 

X(I,J,K) 

X(l+4,6,2*l) 



computed and stored. (The DO statement is dis- 
cussed in detail in Section III.) 

For each variable that appears in subscripted 
form, the size of the array (i.e., the maximum 
values which its subscripts can attain) must be 
stated in a DIMENSION statement preceding the 
first executable statement in the source program. 
(DIMENSION statements are described in Section 
IV.) The value of a subscript expression must not 
be greater than the corresponding array dimension. 

Subscripting to handle two- and three-dimensional 
arrays greatly facilitates the solving of many en- 
gineering and scientific problems which require 
matrix manipulations for their solution. The follow- 
ing example of matrix multiplication illustrates DO 



nests and multiple subscripts. (A DO nest is a set 
of two or more DO statements, the range of one 
of which includes the ranges of the others.) 

Example of Matrix Multiplication 

Problem. Given matrix A with dimensions 10 x 15, 
and matrix B with dimensions 15 x 12, compute 
the elements of dj of matrix C = AB. 

Solution. To compute any element Cu, select the i 
row of A and the j column of B, and sum the prod- 
ucts of their corresponding elements. The general 
formula for this computation is: 



k = 15 

Ch= J^ a, 



B 



k J 



k = 1 



_L£L 



JLQ_ 



DIMENSION Ap 0, 15)^8(15, 



DO 20 



1=1.1 



12)_,C(10.12) 



D0 20 



J=l, 12 



Cn.J) = 0.0 



D0 i^O K = 1.15 



c(i.^) = r,j:i, n+^dua 



B(|C.J 



Statement 5 indicates that the program is to be 
repeated 12 times, first for J = 1, then J = 2 



TABLE 1—2. 
VARIABLE FORMAT 



MODE OF VARIABLE 



GENERAL FORMAT 



INTEGER 

(1 word reserved) 



REAL 

(2 words reserved) 



DOUBLE 

PRECISION 

(3 words reserved) 

COMPLEX 

(4 words reserved) 



LOGICAL 

(1 word reserved) 



1 to 6 alphabetic or numeric characters, the first of which is the letter I, J, K, 
L, M, or N. If the first character is not one of these letters, it is an integer 
variable only if also mentioned in an INTEGER declaration. 



1 to 6 alphabetic or numeric characters, the first of which is not the letter 
I, J, K, L, M or N. If the first character Is one of these letters, it is a real 
variable only if mentioned previously in a REAL declaration. 

1 to 6 alphabetic or numeric characters, the first of which is a letter and the 
variable is mentioned previously In a DOUBLE PRECISION declaration. 

1 to 6 alphabetic or numeric characters, the first of which is a letter and the 
variable is mentioned previously in a COMPLEX declaration. 

1 to 6 alphabetic or numeric characters, the first of which is a letter and the 
variable is mentioned previously in a LOGICAL declaration. 



EXAMPLES 



12 

NAME 

NUMBER 

KEY 

J 

VAR43 
X 

TEST 
DELTA 

ALPHA 
K33 

Z 

J6 

XTEST 

XFL4 

LOOT 

LTEST 

A23L 
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J = 12. Notice that for each repetition of state- 
ments 6 through 20, statement 20 is executed 15 
times (first for K = 1, then for K = 2, and so on). 
Thus, when the process demanded by statement 
5 is complete, the I row of the product matrix 
has been computed and stored. Control then re- 
turns to statement 4 to obtain a new value for I, 
and statements 5 through 20 are repeated for the 
new value. The process continues until all of the 
rows of the product matrix are produced. 

Arrangement of Arrays in Storage 

In the object program, a two-dimensional array A 
will be stored sequentially in the order Ai,i, Aa.i, . . . 
An,.i; A,,2, A2,2, . . . , An,,2; . . . , A,„.„. Thus the ar- 
ray is stored with the first of its subscripts varying 
most rapidly, and the last varying least rapidly. 



The same is true of the subscripts of three-dimen- 
sional arrays. 

All arrays are stored forward in storage; i.e., the 
following sequence is in the order of increasing 
absolute locations. 





ARRANGEMENT 


ARRAY 


IN STORAGE 


Ai, 1 A2, 1 A3. 1 


Ai,i 


(1) 


Al, 2 A2, 2 A3. 2 


A2. 1 


(2) 


Al,3 A2. 3 A3, 3 


A3, 1 


(3) 




Al. 2 


(4) 




A2, 2 


(5) 




A3. 2 


(6) 




Al,3 


(7) 




A2. 3 


(8) 




A3. 3 


(9) 
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SECTION II 
ARITHMETIC AND LOGICAL STATEMENTS 



FORMAT 

An arithmetic statement (or arithmetic formula) 
defines a numerical calculation. A FORTRAN 
arithmetic statement resembles very closely a con- 
ventional arithmetic formula. It consists of a single 
variable to be computed, followed by an equals sign 
( = ) , followed by an arithmetic expression. 



FORMULA 



DESCRIPTION 



GENERAL FORM 




EXAMPLES 


a = b where a is a 


LI 


= K + 1 


variable (subscripted 


A(l) 


= B(l) + SIN (C(l)) 


or not subscripted) 






and b is an expression. 







In a FORTRAN arithmetic statement, however, 
the equals sign means (s to be replaced by rather 
than is equivalent to. An arithmetic statement in- 
structs the computer to compute the value of the 
expression on the right side of the equals sign and 
to store the result in the memory location assigned 
to the variable on the left side of the equals sign. 
Thus the arithmetic statement Y = A - B*C 
directs the computer to replace the value of the 
variable Y with the computed value of the expres- 
sion A - B^'^C. 



The expression on the right side of an arithmetic 
statement may be any sequence of constants, vari- 
ables (subscripted or not subscripted), and func- 
tions, separated by operation symbols, commas, 
and parentheses to form a meaningful expression. 

The five basic operations in the FORTRAN lan- 
guage are: 



OPERATOR 


DEFINITION 


EXAMPLE 


-K 


Add 


a + b 


— 


Subtract 


a - b 


• 


Multiply 


a ♦ b 


/ 


Divide 


a / b 


• • 


To the exponent 


a •• b 



One arithmetic operation symbol cannot immedi- 
ately follow another. An arithmetic expres.sion must 
not contain logical data. 

Following are examples of arithmetic statements: 



A=B 

I = B 
A= I 

l = l-H 



A = 3.0*B 



Store the value of B in A. 
Truncate B to an integer and store in I. 
Convert I to floating point, and store in A. 
Add 1 to I and store in I. (This illustrates 
that an arithmetic formula is not an equa- 
tion but rather a command to replace a 
value.) 
Replace A with 3B. 



Parentheses are used as in ordinary mathematical 
notation to specify order. For example, (A(B + 
C))" written in FORTRAN is (A*(B + C))**D. 
Some exceptions to the rules of ordinary mathe- 
matical notation are: 

a. In ordinary notation AB means A times B or 
A * B. However, AB does not mean A*B in 
FORTRAN. The multiplication symbol cannot be 
omitted. 

b. In ordinary usage, expressions such as A/B*C 
are considered ambiguous. However, such expres- 
sions are allowed in FORTRAN and are interpreted 
as follows: 

A/B*C means (A/B)*C 
A*B/C means (A*B)/C 
A/B/C means (A/B)/C 

Thus, for example, A/B/C*D*E/F means ((((A/ 
B)/C)*D)*E)/F. That is, the order of operations 
is taken from left to right. 

c. The expression A"*' is often considered mean- 
ingful. However, in FORTRAN the corresponding 
expression (A**B**C) is not allowed. It should be 
written (A**B)**C if (A'^)c is meant, or A** 
(B**C) if A<«°) is intended. 

d. The expression A/— B, which in ordinary nota- 
tion would be interpreted as A divided by the 
negative value of B, is illegal in FORTRAN since 
two operators are not permitted to be side-by-side. 
It should be written as A/(-B) or -A/B. 

OPERATOR HIERARCHY 

When a group of operators are not enclosed in 
parentheses, the following implied hierarchy dic- 
tates the order in which the operations are per- 
formed: 
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PRIORITY 



OPERATOR 



OPERATION 



8 

7 
6 
5 

4 
3 
2 
1 



FUNCTIONS 

• • 

+,— 

.LT.,.LE.,.EQ., 

.NE.,.GT.,.GE. 

.NOT. 

.AND. 

.OR. 



Function subroutine 
Exponentiation 
Multiply or divide 
Add or subtract 

Relational operators 

Logical negate 
Logical AND 
Logical OR 



The operator with the hiRhe.st priority takes prece- 
dence over the other operators in the same ex- 
pression. 

Thus, when the arithmetic statement 

F = A + SIN(B)*C**D 

is encountered at execution time, the computer 
would perform the indicated operations in the fol- 
lowing order: 

a. SIN(B) 

b. C**D 

c. (SIN(B))*(C**D) 

d. A+((SIN(B))*(C**D)) 

Again, parentheses that have been omitted from a 
sequence of consecutive multiplications and divi- 
sions are interpreted as being grouped from the left. 
Thus: A/B/C/D/E means ( ( ( (A/B)/C)/D)/E) 

NOTE:— Special care must be taken to indicate the 
order of integer multiplication and division. FORTRAN 
Integer arithmetic is "greatest integer" arithmetic; i.e., 
truncated or remainderless. Therefore, the expression 
5'»4/2 is evaluated as 10, but 5/2*4 is evaluated as 
8. To insure the desired result in integer multiplication 
and division, it is suggested that parentheses be used 
in the expression. 



MIXED EXPRESSIONS 

In general, FORTRAN IV does not allow variables 
or constants of one mode to appear in the same 
statement with variables or constants of another 
mode. For example, integer variables cannot be 
added to real variables, real variables cannot be 
added to logical variables, etc. 

There are, however, the following exceptions to this 
general rule: 

a. Arguments of functions or subroutines may be 
any mode (or Hollerith) but must agree in mode 
in transmission. 

CALL DUMP (A,I,CPLX,LOGI) 
ACPLX - BCPLX + CABS (REAL) 



b. Subscripts of subscripted variables must be ex- 
pressed in integer mode. 

A - ARRAY (I) -H TABLE (4,J,2) 

c. When raising a value to a power, the power 
may have a different mode than that of the value 
being raised. Only those modes shown in the fol- 
lowing eight examples are acceptable where I, R, 
D and C indicate INTEGER, REAL, DOUBLE, 
or COMPLEX mode variables or constants. 



I**! 

R**I \ 
R**R ( 

R**D 



R**D ) 

D**I ( 

*R { 

*D ) 



D**R 

jrj** 1 

C**I 



INTEGER Result 
REAL Result 

DOUBLE Result 
COMPLEX Result 



d. Arguments may bo intermixed between REAL, 
DOUBLE, or COMPLEX modes. If one of the 
arguments of an arithmetic operation (-f ,-,*,/) is 
REAL and the other is DOUBLE or COMPLEX, 
the REAL argument is converted to DOUBLE or 
COMPLEX format, and the result of the arith- 
metic operation is in DOUBLE or COMPLEX 
format. 

e. Automatic mode conversion will take place 
"across" the equals sign of an arithmetic expres- 
sion between INTEGER, REAL, or DOUBLE 
format. The following list .shows allowable modes 
of the variable preceding the equals sign and the 
expression following the equals sign. 



I - I, 


I 


R, 


I 


D 


R =- I, 


R = 


R, 


R - 


D 


D = I. 


D 


R, 


D - 


D 


C C 










L - L 











f. All alphanumeric data occupies one word per 
variable and is typed as INTEGER mode, 

LOGICAL EXPRESSION 

The result of any logical expression is a TRUE or 
a FALSE logical quantity. Two types of operators 
may be used in logical expressions: relational op- 
erators or logical operators. 

Relational Operators 

Relational operators join two arithmetic expres- 
sions. The mode of the two arithmetic expressions 
must be either INTEGER, REAL, DOUBLE PRE- 
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CISION, or a combination of REAL and DOUBLE 
PRECISION. 

The result of a relational operation is a TRUE or 
FALSE answer to the question posed by the re- 
lational operator. 



Example op Logical Statement 

The logic of a simple adder is to be simulated in 
FORTRAN language. (See Figure 2-1.) A 20-bit 
accumulator word and a 20 -bit memory word are 
to be added with a 20-bit result appearing in the 
accumulator. 



RELATIONAL 
OPERATOR 


MEANING 


EXAMPLES 


.LT. 


Less than 


A.LT.B 


.LE. 


Less than or 


X.LE.Z+ 




equal to 


DELTA 


.EQ. 


Equal to 


(l+3)/5 
.EQ.IO 


.NE. 


Not equal to 


R.NE.0.4 


.GT. 


Greater than 


SIN(C) 
.GT.3.14157 


.GE. 


Greater than or 


D.GE.DF 




equal to 





LOGICAL 
OPERATOR 



MEANING 



EXAMPLES 



Logical Operators 

Logical operators generate a TRUE or FALSE 
answer based on other TRUE or FALSE logical 
quantities. These logical quantities may be logical 
constants, logical variables or subscripted variables, 
logical functions, relational expressions (described 
in the previous paragraph), or other logical expres- 
sions (enclosed in parentheses). 



.NOT. Reverse the .NOT.L 

state of the .NOT.X.GE.6.47 

logical quantity 
that follows. 



.AND. Generate a 


L1.AND.L2 


logical result 


L1.AND.(.N0T.L2) 


based on 


(X.LT.E).AND.L3 


two logical 


L3.AND.(Y.NE.0.0) 


quantities as 






follows: 




A B A.AND.B 


T.AND.T — 


>T 


1 1 1 


T.AND.F — 


^F 


1 


F.AND.T — 


>F 


1 


F.AND.F — 


»>F 





.OR. Generate a 




L1.0R.L2 


logical result 




(.N0T.L1).0R.L2 


based on 




(Ll.AND.L2).OR.(L2.AND.L3) 


two logical 




L3.0R(Y.NE.X) 


quantities as 
follows: 




((L1.0R.L2).AND.L3).OR.L4 
A B A.OR.B 


T.OR.T — 


*-T 


1 1 1 


T.OR.F — 


>T 


1 I 


F.OR.T — 


>T 


1 1 


F.OR.F — 


>F 







FtfiURE 2—1 
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SECTION III 
CONTROL STATEMENTS 



GO TO STATEMENTS 

There are three types of GO TO statements: 
Unconditional GO TO 
Assigned GO TO 
Computed GO TO 

Unconditional GO TO Statement 

The unconditional GO TO statement is in the 
form: 

GO TO k 

where k is a statement number. Execution of this 
statement causes the statement identified by the 
statement number to be executed next, 

ASSIGN Statement 

This statement is required with the assigned GO 
TO and is in the form: 

ASSIGN k TO i 

where k is a statement number and i is an integer 
variable name. After execution of such a statement, 
subsequent execution of any assigned GO TO state- 
ment using the integer variable (i) will cause the 
statement identified by the assigned statement 
number to be executed next. 



Assigned GO TO Statement 

This type of GO TO takes the form: 

GO TO i, (ki, k2 kn) 

where i is an integer variable reference, and the k's 
are statement numbers. 

At the time of execution of an assigned GO TO 
statement, the current value of i must have been 

assigned by the previous execution of an ASSIGN 
statement to be one of the kn statement numbers 
in the parenthesized list. The execution of such an 
assigned GO TO statement causes the statement 
identified by the statement number k to be ex- 
ecuted next. 



20 



320 



100 



A SSJ G N 32 P_ jn^_ I 



G0 T \, (100, 3 1 0, 3 2 



A =_B + C 

ASSIGN foO T0 I 

q0_ T0_ 20 

Y = A*X 




Computed GO TO Statement 

This type of GO TO statement is an n-way branch 
where the value of an integer variable determines 
the statement number to which the transfer is 
effected. The format of a computed GO TO state- 
ment is: 

GO TO (ki, k2, ..., kn), i 

where the k's are statement numbers and i is an 
integer variable reference. 



Execution of the above statement causes the state- 
ment identified by the statement label kj to be 
executed next, where j is the value of i at the time 
of the execution. This statement is defined only 
for values such that 1 < j < n. In other words, if 
j = 3, the statement identified by the third state- 
ment number in the list will be executed next. 
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IF STATEMENTS 

All GO TO statements cause an unconditional 
transfer to a single statement. The IF statements 
branch to one of two or three statements depending 
on a condition. Two types of IF statements are 
recognized: 

Arithmetic IF statement 
Logical IF statement 

Arithmetic IF Statement 

This type of statement takes the form: 

IF (e) k,, k2, k3 

where e is any arithmetic expression of type in- 
teger, real, or double precision, and the k's are 
statement labels. 

The arithmetic IF is a three-way branch in which 
the expression e is evaluated. If the expression e is 
negative, there is a transfer to the statement iden- 
tified by ki; if the expression is zero, there is a 
transfer to statement k-; if the expression is posi- 
tive (non-zero), there is a transfer to ka. 




As can be seen in the second and third IF state- 
ment above, the three-way branch can be converted 
to a two-way branch by assigning the same state- 
ment number to two of the three statement numbers 
in the list. 

Logical IF Statement 

The logical IF statement takes the general form: 
IF (e) S 



where e is a logical expression and S is any ex- 
ecutable statement except a DO statement or 
another logical IF statement. Upon execution of 
this statement, the logical expression e is evaluated. 
If the value of e is FALSE, statement S is ignored 
and the next sequential statement is executed. If 
the value of e is TRUE, statement S is executed 
followed by the next sequential statement (unless 
statement S is a GO TO or arithmetic IF state- 
ment). 



J, 


~ , 


tl! a)_, >•! » 


HI lei ». 1 






.0GICAL L1,L2 ' ~P 






; 


. 






IF(LI) A=A+I.O 


f 






IF(L1 '.0R.L2') G0 


T0 2'0- ' 'I 






F(L1 .AND.(.N0T 


L2)) CALL EXITCLI)/ 






IF(X.'LE.a + bELTA) 


IF(X)io, 30,30 ' \ 






IF(L1 .0r.(X.NE.2 


)) L2-.TRUE. ' J 








' X^ 









Computer Test IF Statements 

FORTRAN II statements such as IF ACCUMU- 
LATOR OVERFLOW, IF (SENSE LIGHT m), 
IF (SENSE SWITCH m), IF QUOTIENT OVER- 
FLOW, IF DIVIDE CHECK, and SENSE LIGHT 
are replaced in FORTRAN IV with functions on 
the library tape that provide the same tests and 
action. (See Table 3-1.) These functions are ex- 
plained in detail in their respective program listings 
and include the following: 

SLITE(I). Sense light I will be set. All sense 
lights will be reset if I - 0. (DDP-24, -124, and 
-224 have 24 simulated sense lights. DDP-116, -516 
have 16 simulated sense lights.) 

SLITET(I,J). Sense light I will be turned off. J is 
set to 1 if sense light I was set, or set to 2 if sense 
light I was reset. 

SSWTCH (I,J). J is set to 1 if sense switch I is 
set, or set to 2 if sense switch I is reset. (DDP-24, 
-124, and -224 have six sense switches; DDP-116, 
-516 have four sense switches.) 



TABLE 3—1. 

FORTRAN II VERSUS FORTRAN IV 
STATEMENTS 



FORTRAN II 



FORTRAN (V 



SENSE LIGHT 3 

IF (SENSE LIGHT 6) 20, 30 

IF (SENSE SWITCH 1) 15, 13 

IF ACCUMULATOR 

OVERFLOW 5, 10 

IF QUOTIENT OVERFLOW 5, 10 

IF DIVIDE CHECK 5, 10 



CALL SLITE (3) 
CALLSLITET (6,1) 
GOTO (20,30), I 
CALL SSWTCH (1,N) 
GO TO (15,13),N 
CALL OVERFL(K) 
GO TO (5,10),K 
CALL OVERFL(K) 
GO TO (5,10), K 
CALL OVERFL(K) 
GO TO (5,10),K 
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OVERFL(J). The error flag is turned off. J is set 
to 1 if the error flag was on, or set to 2 if the 
error flag was off. The error flag is located in sub- 
routine F$ER and is set on anytime an error con- 
dition (including underflow as well as overflow) 
exists in an arithmetic calculation or in an input/ 
output conversion. 

DO STATEMENT 

The general format for the DO statement is: 

DO n i = mi, m2, ma 

or 
DO n i = mi, m2 

where: 

1. n is the statement number of an executable 
statement. This statement, called the terminal 
statement of the associated DO, must physically 
follow and be in the same program as that DO 
statement. The terminal statement may not be a 
GO TO (of any form), arithmetic IF, RETURN, 
STOP, PAUSE or DO statement, nor a logical IF 
containing any of these forms. 

2. i is an integer variable. 

3. mi, called the initial parameter; m-, called the 
terminal parameter; and ms, called the incrementa- 
tion parameter, are each either an integer constant 
or integer variable reference. If the second form of 
the DO statement is used so that m,, is not ex- 
plicitly stated, a value of 1 is implied for the 
incrementation parameter. At time of execution of 
the DO statement, mi, m-, and m.i must be greater 
than zero. 

The DO statement is a command to repeatedly 
execute the statements that follow, up to and in- 
cluding statement number n. The first time the 
statements are executed, i is equal to mi. Each 
succeeding time the statements are executed, i is 
increased by mn. When i is equal to the highest 
value not exceeding m-, control passes to the state- 
ment following statement number n. 

The range of a DO is defined by the set of state- 
ments that will be executed repeatedly; it is the 
sequence of consecutive statements immediately 
following the DO, up to and including the state- 
ment numbered n. 

The index of a DO is the integer variable i, which 
is controlled by the DO in such a way that its 
value begins at mi and is increased each time by 
m:. until further incrementation would cause the 




value of m; to be exceeded. Throughout the range 
it is available for computation, either as an ordi- 
nary variable or as the variable of a subscript. After 
the last specified execution of the range, the DO is 
said to be satisfied. 

Assume, for example, that control has reached 
statement 10 of the following partial program. 

The range of the DO is statement 11, and the 
index is I, The DO seis I to 1 and control passes 
into the range. The vaiue of 1*N(1) is computed, 
converted to a real number, and stored in A (1). 
Because statement 11 is the last statement in the 
range of the DO and the DO is unsatisfied, I is 
increased to two and control returns to the be- 
ginning of the range (also statement 11), where 
2'*N(2) is computed and stored in A (2). This itera- 
tion process continues until statement 11 has been 
executed with I equal to 10. Control is then passed 
to statement 12 since the DO loop has been 
satisfied. 

Nested DO's 

Among the statements in the range of a DO loop 
may be other DO statements. When such is the 
case, all of the statements in the range of the latter 
DO loop must also be in the range of the former. 
A group of DO loops satisfying this rule is called a 
nest of DO's. Figure 3—1 illustrates this rule. 

Example of Nested DO's 





'^'"•- 












00 20 K = I,I4,2 C 








A(K,i)=d.O ' ' " y 








D0 is L='4,31,d { 




15 




A(K, i)=A(K^ n+A(k,L) J 








A(K,2) = A(K;1)/3.i'4 S 




20 




A(K,3)=A(K, l)/50i.7 C 




' /^ 
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It is possible for a terminal statement to be the 
terminal statement for more than one DO state- 
ment. The following example shows this type of 
nested DO statements used to sum a triangular 
array. The value summed is 

X(l,l) + X(2,l) + X (2,2) + X(3,l) 
+ X(3,2) +X(3,3) +X(4,1) +X(4,2) +X(4,3) +X 
(4,4)+... + X(10,9)+X(10,10) 




As mentioned previously, the terminal statement 
cannot be a STOP, PAUSE, DO, RETURN, IF or 
GO TO statement or logical IF containing one of 
these forms because execution of these statements 
would cause the DO-loop to lose control. 

CONTINUE 

The CONTINUE statement causes no action and 
generates no coding. It is used for terminating DO 
loops and its form consists of the single word 

CONTINUE. 




PAUSE 

This statement is useful when the run-time pro- 
gram must stop temporarily for operator action 
such as changing data tapes. A PAUSE statement 
takes one of the following forms: 

PAUSE m 
or 

PAUSE 
where m is an identification constant and is an 
integer value in the range (0 < m < 32768). 
The PAUSE statement transfers to the F$HT sub- 
routine which types the message PAUS (the DDP- 
116, -516 types the letters PA) and then halts the 
program with the value m in the accumulator. 
The identification constant m, when included, 
usually indicates the particular PAUSE statement 
that caused the halt. Pressing the computer's start 
button causes the program to continue, starting 
with the first statement following the PAUSE 
statement. 



PERMITTED 



■* 


■•— — 








D0 6,1 = 1,1 







J 




f 






DO l.J=l. 









f 






V 




1 


C0NTINUE 








'J 






m 






D0 4,K = 1, 


10 






' 1 






\ 






D0 2,L = 1, 









y 




2 


C0NTINUE 








\ 






D0 3,M = 1. 


1 


1 




y 




; 


C0NTINUE 




1 




c 




4 


CONTINUE 








'y 






^ 






00 5,N = 1, 


10 






f 




^L 




5 


C0NTINUE 








' J 




M 




6 


CONTINUE 






""t 




^ 










^ 


k 












. J 



NOT PERMITTED 



)1 


T 101 » 


»oi aai »0i7 






D0 1, 1=1 , 10 




V, 




,,... ^_,.v 






DO 2,J = M 





^ 




s 




1 


CONTINUE 








J 






^ 






DO 3.K=I. 


10 






: V. 




'i 


CONTINUE 








h— _-x 




: 


CONTINUE 






F ■ r 










^ 


^ 












» 


\ 
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STOP 

The STOP statement is placed at the logical end 
of the program and causes the computer to halt. 

The STOP statement uses one of the following 
forms: 

STOP m 
or 

STOP 

where m is an identification constant and is an 
integer value in the range (0 < m < 32768). 

This statement transfers to the F$HT subroutine 
that types the message STOP (the DDP-116 types 
the letters ST) and then halts the program with 
the value m in the accumulator. The identification 
constant m, when included, usually indicates the 
particular STOP statement that caused the halt. 
Pressing the computer's start button will cause the 
message to be retyped. There is no return from the 
STOP statement. 



all variables and constants needed by the program 
compiled. There must be END statement in every 
program. 



END OF JOB 

If a program job consists of just one program, the 
END statement is followed by an END OF JOB 
card that consists of dollar sign in column 1 and 
the digit in column 2. The rest of the line is 
ignored and may be used for comments. 

If a programming job consists of a FORTRAN 
program and several FORTRAN subprograms, 
they may be grouped together with the program 
first followed by the subprograms. The program 
and each subprogram is terminated by an END 
statement; and the last subprogram in the group 
is also followed by an END OF JOB card (line). 



END 

The statement placed last physically in every pro- 
gram must be the END statement that consists of 
the word 

END. 



It signals the compiler that the program is com- 
plete and no additional statements remain to be 
processed. No coding is generated by this state- 
ment, although at this time the compiler assigns 
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SECTION IV 
SPECIFICATION STATEMENTS 



Specification statements are considered non-exec- 
utable statements in that they do not generate 
any object program instructions, but organize or 
classify data to be used by subsequent statements. 
All specification statements must appear before 
any statement that generates coding (executable 
statements). There is no "ordering" needed within 
a series of specification statements except for the 
DATA statement which must appear last. 



SPECIFICATION 
STATEMENTS 



DESCRIPTION 



INTEGER 


Declares mode of variables is 
INTEGER. 


REAL 


Declares mode of variables is 
SINGLE PRECISION Floating 
Point (Real). 


DOUBLE 
PRECISION 


Declares mode of variables is 
DOUBLE PRECISION Floating 
Point. 


COMPLEX 


Declares mode of variables is 
COMPLEX FLOATING POINT. 


LOGICAL 


Declares mode of variables is 
logical. 


DIMENSION 


Declares arrays and sets their 
sizes. 


EXTERNAL 


Declares subroutine names 
that are to be used as argu- 
ments for other subroutines. 


EQUIVALENCE 


Shares storage assignments of 
variables and/or arrays. 


COMMON 


Assigns variable and/or array 
storage to a common area. 


DATA 


Sets variables and/or array 
elements to initial values. 



INTEGER STATEMENT 

Unless otherwise declared, a variable, array, or 
function whose first letter is I, J, K, L, M or N 
is of the INTEGER mode. Other variables, arrays, 
or functions may also be mode-classified as IN- 
TEGER, regardless of first letter, by including 
them in the list of an INTEGER statement. 




REAL STATEMENT 

Unless otherwise declared, a variable, array, or 
function whose first letter is not I, J, K, L, M or N 
is of the SINGLE PRECISION floating point 
(REAL) mode. Other variables, arrays, or func- 
tions may also be mode-classified as REAL, re- 
gardless of first letter, by including them in the list 
of a REAL statement. 




DOUBLE PRECISION STATEMENT 

All variables, arrays, or functions that are to be of 
the DOUBLE PRECISION floating point mode, 
must be included in the list of a DOUBLE PRE- 
CISION statement. 




COMPLEX STATEMENT 

All variables, arrays, or functions that are to be of 
the COMPLEX floating point (or COMPLEX) 
mode, must be included in the list of a COMPLEX 
statement. 




LOGICAL STATEMENT 

All variables, arrays, or functions that are to be of 
the LOGICAL mode, must be included in the list 
of a LOGICAL statement. 




4-1 



BX32 



DIMENSION STATEMENT 

The DIMENSION statement is used to declare 
arrays and to define their sizes. A DIMENSION 
statement takes the form: 

DIMENSION v,(i,), v.(i.), v„(i") 

Each V is an array declarator where v is the name 
of the array. The mode of each item in the array 
is determined hy the first letter of the name of the 
array or by including the name in one of the decla- 
ration statements (INTEGER, REAL, DOUBLE 
PRECISION, COMPLEX, and LOGICAL). The 
subscript "i" is comprised of one, two, or three 
positive non-zero integer constants, or dummy vari- 
ables separated by commas. The number of con- 
stants represents the number of dimensions by 
which the array is referenced; and the value of 
each constant represents the maximum size of each 
dimension. 

When arrays are passed to subprograms, the sub- 
program must re-declare the array. The mode, 
number of dimensions, and size of each dimension 
must agree with that declared by the calling pro- 
gram, but the name of the array need not agree. 




It is possible for one or more of the subscripts in a 
DIMENSION statement to be an integer variable 
instead of a constant. This situation is only possi- 
ble in a FORTRAN subfunction where the calling 
program provided (and declared) the array name 
and all variable subscripts. In other words, for any 
variable-dimensioned array given in a subfunction's 
DIMENSION statement, both the array's name 
and all variable subscripts must be dummy names. 



This feature is us'^ful for general-purpose subpro- 
grams that manipulate arrays (such as a matrix 
multiply subroutine). Since the subprogram could 
work with any size array (given enough memory), 
it lets the calling program specify the size of ar- 
ray, rather than specifying an array of constant 
size. The calling program, of course, must declare 
the array using constant subscripts. 




Other methods in which arrays may be declared 
and sized are discussed in the paragraph entitled 
"Alternate Methods of Declaring Arrays" later in 
this section. 

EXTERNAL STATEMENT 

One of the allowable types of arguments passed on 
to a subprogram is another subprogram's name. In 
order to do this, the subprogram name being used 
as an argument must be declared as a subprogram 
by placing the name in the list of an EXTERNAL 
statement. Only subprogram names used as argu- 
ments need to be declared ^ / an EXTERNAL 
statement. 





.|f .c 


m tei ■• 


to 


— ^ 


^ 




EXTERNAL TESTl , TEST2, TEST3 / 








: 




V, 






CALL 


DEBUG(TESTl.A.I) 




> 












\ 


-1- ; 




CALL 


DEBUG(TEST3,X,I) 




) 




I ■ 




\ 






CALL 


DEBUG(TEST2,A, J 




) 












C 




,. 


_ — 






^-> 
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EQUIVALENCE STATEMENT 

The EQUIVALENCE statement is used to permit 
the sharing of memory storage by two or more 
entities. The general format of the EQUIVA- 
LENCE statement is: 

EQUIVALENCE (ki), (k2), , (k„) 

where each k represents a list of two or more vari- 
able or subscripted variable or array names sepa- 
rated by commas. Each element in the list repre- 
sented by k is assigned the same memory storage 
by the compiler. All subscripts appearing in an 
equivalence list must be integer, positive, non- 
zero constants. 

An EQUIVALENCE statement may equate single 
variables to each other, entire arrays to each other, 
elements of an array to single variables, or vice 
versa as shown in Figure 4—1. An element of an 
array may be expressed in an EQUIVALENCE 
statement in one of two ways. 

1. It may be expressed exactly as in a DIMEN- 
SION statement. Assume the element A (4,1) of 
the two-dimensional array A (4,2) is to be equated 
to variable B (6) of the one-dimensional array B 
(10), the statement could be: 

EQUIVALENCE (A (4,1), B (6)) 

2. It may be expressed as the equivalent fictitious 
single-dimensional subscript that indicates the or- 
der in which the element is stored in memory. 
Again assuming element A (4,1) is to be equated 
to variable B (6), the statement could be written: 



EQUIVALENCE (A (4), B (6)) 

where A (4) specifies that the element A (4,1) is 
stored in the fourth location of the storage block 
reserved for the two-dimensional array A (4,2). 

The mode assigned to each element determines the 
number of memory cells occupied by each element 
as shown in Table 4—1. 

If an INTEGER or LOGICAL mode variable is 
made equivalent to a REAL, DOUBLE PRE- 
CISION or 60MPLEX mode variable, the former 
variable shareV memory storage with the first 
of the words required by the later variable. Figure 
4-1 shows the relative memory assignments caused 
by an EQUIVALENCE statement. 

Variables and array elements appearing in EQUIV- 
ALENCE statements may also appear in COM- 
MON statements. The resulting effect is explained 
in the following paragraph. Dummy arguments for 
a subprogram cannot be used as elements within 
an EQUIVALENCE statement contained in that 
subprogram. 

TABLE 4—1. 

MODE/MEMORY CELLS CORRESPONDENCE 



MODE ASSIGNMENT 



NUMBER OF 
MEMORY WORDS 



INTEGER 

REAL 

DOUBLE PRECISION 

COMPLEX 

LOGICAL 



1 
2 
3 
4 
1 



COMMON STATEMENT 

The COMMON statement provides a means of 
sharing memory storage among subprograms or 
transferring data between subprograms or between 
segments of a chained program. The format of the 
COMMON statement is: 



C0MM0N A,B,C(10) 



C0MM0N // A,B,C(10) 



C0MM0N /C1/P,E,F 



C0MM0N /C1/D.E,F/C2/G,H(16,3),I 
C0MM0N A,B,C(10)/C1/D,E,F 



C0MM0N //A.B.C(10)/C1/ D^j^_F_ 



^C2/G^H(16,3).I 



C 0MM0N /C1/D,E//A/C1/F//B,C(10) 

— c , — t^ 1, ' J — —I - I r^ 
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DIMENSI0N A(A,2),B(10) 



D0UBLE PRECISI0N D1,D2,D3 




C0MPLEX C1,C2,C3 



tQUiyALENCE(X, pi , C3). (A(4, 1 ), Py t ), (A(l , UD2 



EQmVALENCE(B(8),A(2,2),ll) 



X 


Dl' 


C3 







A(l,l) 
or A(l) 



A(2,l) 
or A(2) 



A(3,l) 
or A(3) 



A(4,I) 
or A(4) 



A(1,2) 
or A(5) 



A(2,2) 
or A(6) 



A(3,2) 
or A(7) 



A(4,2) 
or A(8) 



D2 



D3 



CI 



B(l) 



B(2) 



B(3) , 



B(4) 



B{5) 



..B(6) 



B(7) 



-B(8) 



B(9) 



B(10) 



relative memory addr. 

1 
2 

3 

4 
_ 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



FIGURE 4—1. MEMORY ASSIGNMENTS CAUSED BY EQUIVALENCE STATEMENT 
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COMMON ai, a2, . . . , an 

COMMON/xi/ai, &2, . . . , an/xn/ai, as, . . . , a„ 

where ai specifies a list of variable names or array 
names and x is a COMMON block name. If a speci- 
fies an array name, it may be followed by its dimen- 
sioning information in parentheses. COMMON 
block names, when specified, are enclosed between 
two slashes. A COMMON block name may be 
unspecified (called blank common) and if such a 
block appears first in a COMMON statement, the 
two slashes may be omitted. Names of COMMON 
blocks must not be identical with the name of a 
subprogram called on by the program job, or the 
name of a subroutine on the library tape. The fol- 
lowing example illustrates some acceptable COM- 
MON statements. 

The data items within a COMMON block are as- 
signed sequentially in the order of appearance. The 
actual location of a COMMON block is made by 
the loader program in such a way that all COM- 
MON blocks with the same name are assigned to 
the same area regardless of the program or sub- 
program in which they are defined. The loader 
program is designed to assign all blank common 
data in such a way that it overlaps the loader pro- 
gram, thereby making the memory area occupied 
by the loader program available for data storage. 

Elements within a COMMON block may be over- 
lapped and interrelated by listing such elements in 
a group. If an element included within an EQUIV- 
ALENCE statement group is also specified to be in 
a COMMON area, all other items within the equiv- 
alence group are also in that COMMON area. 



The number of words that a COMMON block 
occupies depends on the number of elements, 
the mode of the elements, and the interrelations 
between the elements specified by an EQUIV- 
ALENCE statement. COMMON blocks that ap- 
pear with the same block name (or no name) in 
various programs or subprograms of the same job 
are not required to have the elements within the 
block agree in name, mode, or order; but the 
blocks must agree in total words occupied. 

Figures 4-2 and 4-3 show the relative memory 
assignments caused by COMMON statements. 



DATA STATEMENT 

The DATA statement is used to set variables or 
array elements to initial constant values during 
loading of the object prigram. (The variables are 
not re-initialized if the program is restarted with- 
out reloading.) A DATA initialization statement is 
of the form; 

DATA k,/d,/,kVdV k„/dn/ 

Each k is a list containing non-dummy names of 
variables or array elements (with constant sub- 
scripts) separated by commas. Each d is a cor- 
responding list of constants with optional signs. 

There must be a correspondence in order and mode 
between the name list and the data list. If the data 
list consists of a sequence of identical constants, 
the constant need only be written once and pre- 
ceded by the number of repeats (integer constant) 




FIGURE 4—2. COMMON STATEMENTS EFFECTING MEMORY ASSIGNMENTS IN FIGURE 4—3 
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Start loading 




^ 



OTHER 
SUBROUTINES 



UNUSED 
MEMORY 



t 



L0ADER "I 



BLANK 
C0MM0N 



X(l) 


Y(1) 


X{2) 


Y(2) 


X(3) 


Y(3) 


X(4) 


Y(4) 


X(5) 


Yt5) 


X(6) 


Y(6) 


X(7) 


Y{7) 



/ 

G(l)' 


L(1) 


1(1) 










G(2)' 


















G(3)' 


















G(4)' 


















G(5)" 


















G(6)" 


















G{7) 


















G(8) 


















































L(20) 


1(20) 



COMMON 


COMMON 


block 


block 


labeled 


labeled 


C0M2 


C0M 1 


(14 words) 


(20 words) 



,J 



Al -Xl 



A2 --X2 



II -ID 



B(l,l)--T(l) 



B(2J)-T(2) 



B(3,1)-T(3) 



B0,2)-T(4) 



B(2,2)-- T(5) 



8(3,2)-- T(6) 



B(l,3).-T(7) 



B(2,3)-T(8) 



B(3,3)--T(9) 



«i^ 



_End of 
Memory 



Memory 
Map 



Blank 
(unlabeled) 
COMMON 

block 
(23 words) 



FIGURE 4—3. MEMORY ASSIGNMENTS CAUSED BY COMMON STATEMENTS IN FIGURE 4—2 
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INTEGER 




/13, -4179,1, +6, 6*0/ 


REAL 




/I 3.0,-4. 179E3,1CI0E -2, +6.0,6*0./ 


DOUBLE 




/13.b,-4. 179D3, 100D-2,' + 0.6Di,6*0."D/ 


COMPLEX 




/(13.0,-4.179E3),(100E-2,+6.0),6*(0'. .0.)/ 


LOGICAL 


J^. TRUE. ,. TRUE. ,/fALSE,'~ ' "^ 1 


HOLLERITH 




/4HDEC.,3HDEG 


MIXED 


^ 


/13, 13.0, I .'3E2, 13.D,(13.0,0.0)/ 



FIGURE 



and an asterisk character. For example: 
/1.4,3*2.0,0.0/=/1.4,2.0,2.0,2.0,0.0/ 

A Hollerith constant may appear in the data list 
as a string of characters preceded by the letter H 
that, in turn, is preceded by a constant indicating 
the string length. The characters will be stored in 
their BCD code, left justified if necessary. Types 
of constants allowed within the data list are shown 
in Figure 4—4. 

Consider the first DATA statement shown in the 
example below. This statement assigns the value 
0.10762 to Al (4), 1.0E5 to X, 1 to 1, etc. The 
assignment is done at load time not at execution 
time. A DATA statement is not executable. 

Restrictions 

The DATA statement (s) must appear as the last 
specification statement(s). Variables or array ele- 
ments assigned to unlabeled (blank) COMMON 




may not be initialized by the DATA statement. 
Variables or array elements assigned to labeled 
COMMON areas may be initialized by a DATA 
statement but only within a BLOCK DATA sub- 
program (see Section VI). 

ALTERNATE METHODS OF 
DECLARING ARRAYS 

The size and mode of an array is normally de- 
clared by a DIMENSION statement. However, it 
is sometimes more convenient to declare arrays by 
other specification statements. This is allowed in 
the INTEGER, REAL, DOUBLE PRECISION, 
COMPLEX, LOGICAL, and COMMON state- 
ments. The specification of the size of the array is 
made in the same manner as in the DIMENSION 
statement, by following the array name with the 
maximum size of each dimension within paren- 
thesis. 

The following two examples accomplish the same 
task of declaring arrays and typing variables. The 
second example, however, does not use a DIMEN- 
SION statement. Both methods are acceptable. 
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TRACE STATEMENT 

The TRACE statement causes coding to be in- 
serted into the object program, when specified 
variables or array names are defined by an arith- 
metic statement, or after every variable definition 
within a specified area. The effect of the inserted 
coding and examples of TRACE statement formats 



are described in Section VII. The TRACE state- 
ment has two acceptable formats: item trace and 
area trace. 

Item Trace 

Item trace takes the form: 

TRACE xi,X2 x„, 

where each x represents a variable or array name. 
Special coding is inserted after each time one of 
the list names is defined by an arithmetic state- 
ment. 

Area Trace 

Area trace takes the form: 

TRACE n 

where n represents a single statement number. 
Trace coding is inserted after all statements start- 
ing with this statement, up to and including state- 
ment number n. 
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SECTION V 

INPUT/OUTPUT STATEMENTS 

AND FORMAT SPECIFICATIONS 



INPUT/OUTPUT STATEMENTS 

There are two main types of input/output state- 
ments: 

(1) READ and WRITE statements 

(2) I/O Control statements 

This section deals primarily with the former, and 
with associated format specifications. 

In the statement descriptions in Table 5—1, the 
arguments "u", "f", and "list" are used as follows: 

The argument u represents the input/output unit 
number and may be an integer constant between 
and 9, or an integer variable. Standard assignment 



of device numbers is as follows: 



= spare 5 = magnetic tape no. 1 

1 = typewriter 6 = magnetic tape no. 2 

2 = paper tape 7 = magnetic tape no. 3 

3 = cards 8 = magnetic tape no. 4 

4 = line printer 9 = magnetic tape no. 5 

(Changing device assignments is discussed in 
Appendix B.) 

The argument / represents the format statement 
reference and must be a format statement number 
if the format statement is included in the program 
being compiled, or an array name if the format 



TABLE 5—1. 
I/O STATEMENTS 



TYPE 



STATEMENT 



DESCRIPTION 



Formatted READ 
Formatted WRITE 
Unformatted READ 



READ (u,f) list, or READ (u,f) 
WRITE (u,f) list, or WRITE (u,f) 
READ (u) list, or READ (u) 



Unformatted WRITE 



Control Statements 



Write (u) list 



REWIND u 



BACKSPACE u 



ENDFILE u 



Input from unit u according to format statement f, and 
assign the resulting values to the list elements (if any). 

Convert the list elements according to format statement f, 
and output using device u. 

Input the next record from device u in binary format and, 
if there is a list, assign these values to corresponding 
items on the list. If the record contains more items than 
are required for the list, the rest of the record Is lost. If 
more information is required for the list than is in one 
record, additional records will be read. If no list is present, 
one record will be read but ignored (resulting in an effective 
forward skip action). 

Write all words specified by the list in binary format without 
converting. Writing is performed on device u. If the list 
elements do not fill one record, the rest of the record is 
padded with zero bits. If the list elements require more 
than one record, multiple records will be written and the 
last record padded with zero bits if necessary. 

Rewind magnetic tape unit u to its initial start point. Only 
unit 5, 6. 7, 8 or 9 (magnetic tape 1, 2, 3, 4 or 5) should 
be specified. 

Backspace magnetic tape unit u by one record (unless it 
is at its initial start point). Only unit 5, 6, 7, 8 or 9 (mag- 
netic tape 1, 2, 3, 4 or 5) should be specified. 

Punch a stop code on paper tape if the unit number is 2, 
or write an ENDFILE record on magnetic tape 1, 2, 3, 4 or 
5 if the unit number is 5, 6, 7, 8 or 9. When an ENDFILE 
record or stop code character is read during input, a coded 
message will be typed followed by a halt. 
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TABIjE 5—2. 
EXTERNAL RECORDS 



UNIT (DEVICE) 
Typewriter 

Line Printer 
Cards 

Paper Tape 
Magnetic Tape 



FORMATTED (BCD) 
RECORD DEFINITION 



UNFORMATTED (BINARY) 
RECORD DEFINITION 



One line of type terminated by a carriage return. 
Maximum of 120 chiaracters/line (72 charac- 
ters/line on DDP-116, -516) 
One line of printing with a maximum of 
120 characters/line 
One card, 80 characters 

One card image of 80 characters 

Line printer image 120 characters 



Undefined 



statement is to be entered into the array at execu- 
tion time. 

The argument list represents the list of individual 
arguments that are to be input or output. 

EXTERNAL RECORDS 

The information transmitted between computer 
storage and external media by one input/output 
statement is separated into physical groups called 
records. The definition of a record varies with the 
I/O device, the type of machine, and whether the 
record is BCD or binary. Table 5-2 defines the 
data that comprises a record for each I/O unit. It 
is the programmer's responsibility to avoid exceed- 
ing the maximum record size for a given device. 

External formatted records may contain the values 
of several variables; each variable is considered a 
field of information. In order to specify the man- 
ner of conversion on input or output, it is necessary 
to state the size or width of the data field. If the 
variable is floating point, it is also necessary to 
state the position of the decimal point. The wddth 
of the field is the total number of characters neces- 
sary t' describe the information on a coding form. 
Howe er, fields may be larger if leading blanks are 
included, or smaller if truncation is desired. 

If formatted input records exceed the maximum 
number of characters allowed for a particular input 
device, all characters after the maximum are un- 
defiined. The next input record is not automatically 
read. A means of processing multiple records is 
described later in this section. 

I/O STATEMENT ARGUMENT LISTS 

Simple ARcimENTS 

Most input/output statements include a list of the 



Undefined 

One card, 40 words (60 words on DDP-116, 

-516) 

One card image of 40 words (60 words on 

DDP-116, -516) 

One card image of 40 words (60 words on 

DDP-116, -516) 



quantities to be transmitted. The list is ordered, 
and its order must be the same as the order in 
which the words of information exist (for input), 
or will exist (for output), in the external medium. 

The items within the list may be variables, sub- 
scripted variables, or array names. Constants are 
not allowed as list items. 

When an integer variable is used as a subscript to 
a variable in the list of a READ statement, it must 
be previously mentioned as a variable in that same 
list (physically to the left of where it appears as a 
subscript). Following is an example of two accept- 
able lists. 



r 


DIMENSI0N X(100),Y(10,10) \ 


\ 


REAd'(1,20)' A, X'(3),I,Y(I + 1,4) / 


9 


f 




dime'nsi0n X(I'OO). Y(10,lb) \ 




REAd'(1,20) ' A, X'(3), \', Y(l+'l,4), X, Bl 


' - 


\ 



Implied DO-Loops 

A group of simple arguments can be enclosed in 
parentheses and include control information which 
specifies the number of times "^be group is to be 
repeated. This control information is very similar 
in format to that used by the DO statement. For 
example: 




If the list shown in the preceding example is used 
with an output statement, the information is writ- 
ten in the external medium in the following order: 
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K,B(3),C(1).D(1,K)C(2),D(2,K), 

C(10),D(10,K), 

E(1,1),E(2,1) ^ ( 10,1), F (1,3), 

E(1,2),E(2,2) E(10,2),F(2,3), 

,F(K.3). 

Similarly, if the list is used with an input state- 
ment, the successive words, as they were read from 
the external medium, are placed in the sequence 
of storage locations specified above. 

Thus, the list reads from left to right with the 
repetition of variables enclosed in parentheses. 
Only variables, not constants, may be listed. The 
repetition is identical to that of a DO loop, as if 
each open parenthesis (except subscripting paren- 
theses) were a DO, with indexing given immedi- 
ately before the matching closing parentheses, and 
with range extending up to that indexing informa- 
tion. The order for the above list is the same as for 
the "program": 



1. 


K 




2. 


B(3) 




3. 


D05I = 


1,10 


4. 


C(I) 




5. 


D(I,K) 




6. 


DO 9 J 


= 1,K 


7. 


DO 8 I 


= 1,10 


8. 


E(I,J) 




9. 


F(J,3) 





Notice that indexing information, as in DO's, con- 
sists of three constants or integer variables, arid 
that the last of these may be omitted, in which case 
it is understood to be one. 

For a list of the form K, (A(K))or (A(I),I = 1,K), 
where an index or indexing parameter itself 
appears earlier in the list of an input statement, 
the indexing is carried out with the newly read-in 
value. 

Specification of Matrix Order 

FORTRAN, in effect, considers variables in a mat- 
rix such that a list for either input or output in 
the form 

((A(I,J),J = 1,3), I = 1,2) 

specifies that I x J items of information are trans- 
mitted in the order 

Al,l,Al,2,Al,3,A2 ,1,A2,Z,A2,3. 

The above is the order in which the items are out- 
put; for input, it is the order in which the data 



should be written on the data sheet. If it is desired 
to write the data by columns or to print the items 
by columns, the list takes the form 

((A(I,J).I = 1,2), J = 1,3) 

It can be seen here that it is the inner-most index, 

rather than the inner-most subscripted variable, 

that determines which subscript varies more 

rapidly. 

Input/Output of Entire Arrays 

When input/output of an entire matrix is desired, 
an abbreviated notation may be used for the Ust 
of the input/output statements. Only the name of 
the array need be given and the indexing informa- 
tion may be omitted. Thus the list 

A 

is sufficient to cause the read-in of all the items of 
matrix A in their natural order. The natural order 
is considered to be 

((A(I,J),I = 1,2)J = 1,3) 

In such a case, FORTRAN examines to see whether 
or not the variable has been defined as an array. 
If such a definition is not made, only a single ele- 
ment will be transmitted. 

FORMAT STATEMENT 

The form of the FORMAT statement is 

FORMAT (Si, S2, S„) 

where Si are descriptions of the external form of 
the variables comprising a record. The Si provide 
the compiler with the information necessary for 
conversion from and to external form. 

A FORMAT specification describes the record to 
be converted by giving, for each field in the record 
(from left to right, beginning with the first charac- 
ter), a basic field specification written in the form: 

nKw.d 
where: 

1. The letter n represents a positive integer indi- 
cating the number of successive fields within one 
unit record which are to be converted according to 
the same specification. If n is equal to 1, it may 
be omitted. 

2. The letter K represents a control character 
specifying the type of conversion to be used. This 
character may be I,E,F,G,D,P,L,A,H or X. 

3. The letter w represents the width of the field. 
The field widths may be made greater than neces- 
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aary to provide spacing bliinks between the items 
on a line. Thus, a field specification of nKl2, where 
only four digits are to be printed, would result in 
eight blanks preceding the digits. Within each field 
the printed output will always appear in the right- 
most positions. 

4. The letter d represents the number of positions 
in the field which appear to the right of the decimal 
point; it is used only with E, F, G and D-type 
conversions. 

Within the unit record, field specifications are 
separated by commas. 

Iw, Ew.d, nX, Fw.d, nAw, etc. 

EXCEPTION: A comma need not follow a field spec- 
ified by an H or X control character. 

SUMMARY OF CONTROL 
CHARACTERS 

There are nine different types of control characters, 
seven of which provide for the conversion of data 
between the internal machine language and the 
external notation as follows: 



INTERNAL 



TYPE 



EXTERNAL 



Integer variable I 

Real variable E 

Real variable F 

Real variable G 

Double precision D 

variable 

Logical variable L 

Real variable A 



Decimal Integer 
Floating-point, scaled 
Floating-point, mixed 
Floating-point, 

mixed/scaled 
Floating-point, scaled 

Letter T or F 
BCD characters 



Complex variables are represented by types E, F 
or G and appear externally as two floating-point 
numbers. 

An eighth control character, X, provides for skip- 
ping characters in input or the specification of 
blank characters in output. 

A ninth control character, H, designates Hollerith 
or heading fields. It may be used to output alpha- 
numerical characters originating in the source pro- 
gram and for carriage control in printing or typing. 

I-Type Conversion (Field Specification 
Iw or nlw) 

The number of characters specified by w is con- 
verted as a decimal integer. 

i -Output. Negative numbers have a minus sign 
before their first significant digit; no sign indicates 



a p(»itive number. The digits are right justified 
with leading blanks. If an integer is truncated be- 
cause w is not large enough, the sign position con- 
tains a dollar sign ($) if positive or an equals sign 
( = ) if negative to indicate that some digits are 
missing. 

In the following examples, the letter "b" indicates 
a blank (or space): 



OUTPUT 


INTERNAL 


CHARACTERS 


FORMAT 


NUMBER 


OUTPUT 


18 


+12345 


bbb 12345 


17 


-12345 


b-12345 


16 


+12345 


b 12345 


15 


-12345 


=1234 


14 


+12345 


$123 


13 


-12345 


= 12 


12 


+12345 


$1 


11 


-12345 


^ 


10 


+12345 


(NO OUTPUT) 


15 


+00000 


bbbbO 



I-Input. An input field of w characters is converted 
to a 23-bit plus sign binary integer (15-bit plus 
sign on the DDP-116, -516). If no minus sign is 
present, the value is considered positive. No decimal 
point character is allowed. If blanks (or spaces) 
are present in the field, they must precede the first 
digit or sign. Integer values with a magnitude up 
to 8388607 are accepted (32767 maximum on the 
DDP-116, -516). 



INTERNAL 
NUMBER 

+00000 
+00001 
+00001 
-00015 
-00003 
+12345 
-01234 



E-Type Conversion (Field Specification 
Ew.d or nEw.d) 

The number of characters specified by w is con- 
verted as a floating-point number with the number 
of digits specified by d to the right of the decimal 
point. 

E-Output. Output consists of a minus sign or blank 
(if positive), the digit 0, a decimal point, the most 
significant d digits of the number to be output, 
followed by the letter E and a two-digit-plus-sign 
decimal exponent. The leading sign j>osition is re- 
placed by a dollar sign ($) if positive or an equals 



FORMAT 


CHARACTERS 


DESCRIPTOR 


INPUT 


15 


bbbbb 


15 


btvbbl 


15 


bbb+1 


15 


-bbl5 


15 


bbb-3 


15 


12345 


15 


-1234 
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sign ( = ) if negative to indicate that the output 
must be truncated because the w field specification 
is too small. 



OUTPUT 


INTERNAL 


CHARACTERS 


FORMAT 


NUMBER 


OUTPUT 


E14.4 


+ 12.3456 


bbbb0.1235Eb02 


E13.4 


-0.0012321 


bb-0.1232E-02 


E12.4 


-0.176 


b-0.1760Eb00 


E11.4 


+ 123456. 


b0.1235Eb06 


El 0.4 


-123456. 


=0.1235Eb0 


E9.4 


+ 123456. 


$0.1235Eb 


E8.4 


-123456. 


=0.1235E 


E7.4 


+123456. 


$0.1235 


E6.4 


-123456. 


=0.123 


E5.4 


+ 123456. 


$0.12 


E4.4 


-123456. 


=0.1 


E3.4 


+ 123456. 


$0 


E2.4 


-123456. 


=0 


E1.4 


+123456. 


$ 



E-Input. See the discussion of D-input in the para- 
graph entitled "D-Type Conversion." 

F-Type Conversion (Basic Field Specification 
Fw.d or nFw.d) 

The number of characters specified by w is con- 
verted as a floating-point mixed number, with the 
number of digits specified by d to the right of the 
decimal point. 

F-Output. Output consists of a minus sign or blank 
(if positive), followed by the integer portion of 
the number, a decimal point, and d digits of the 
fractional portion of the number. The sign is re- 
placed by a dollar sign ($) if positive or an equals 
character ( = ) if negative to indicate that w char- 
acters are not sufficient to hold the sign, the integer 
digits, the decimal point, and d fractional digits. 



OUTPUT 


INTERNAL 


CHARACTERS 


FORMAT 


NUMBER 


OUTPUT 


F6.3 


+ 0.00123 


bO.OOl 


F6.3 


+0.12468 


b0.125 


F6.3 


-0.12468 


-0.125 


F6.3 


+ 1.23456 


bl.235 


F6.3 


-6.00000 


-6.000 


F6.3 


+ 12.3456 


$12.34 


F6.3 


-123.456 


= 123.4 


F6.0 


+ 123.456 


bbl23. 


F6.0 


+0 


bbbbO. 



G-Type Conversion (Basic Field Specification 
Gw.d or nGw.d) 

The external field occupies w positions with d sig- 
nificant digits. The value of the list item appears, 
or is to appear, internally as a real number. 



G-Output. The form of the output depends on the 
magnitude of the internal floating-point number. 
Comparison is made between the exponent (e) of 
the internal value and the number of significant 
digits specified (d) by the format descriptor. If e 
is greater than d, an E-type conversion is used. If e 
is less than or equal to d, an F-type conversion is 
used, but modified by the following formula: 
F(w-4). (d-e), 4X. (Four blanks, as specified by the 
4X, are always appended to the value.) If the value 
to be represented is less than |.l|, the E-type con- 
version is always used 

The sign position is minus if negative or blank if 
positive. If w or d is such that the number could 
not be converted properly, the sign position con- 
tains a dollar sign ($) if positive or an equal sign 
( = ) if negative to provide an indication. 

Following are some correctly formatted output 
values which show how the conversion formulas 
are used to determine the output presentation. 



OUTPUT 


INTERNAL 


CHARACTERS 


FORMAT 


NUMBER 


OUTPUT 


G14.6 


.12345123 X 10" 


bb0.123451bbbb 


G14.6 


.12345123 X 10* 


bbbl234.51bbbb 


G14.6 


.12345123x108 


bbO.123451E+08 


G14.6 


.12345123 X 1010 


bb0.123451E+10 



G-Input. See the discussion of D-Input in the 
following paragraph. 

D-Type Conversion (Basic Field Specification 
Dw.d or nDw.d) 

The external field occupies w character positions, 
the fractional part of which consists of d digits. 
The internal format is DOUBLE-PRECISION 
floating-point format (three words). 

D-Output. The external output format is the same 
as E-output format except the letter E is replaced 
by the letter D. 



F-Input. See the discussion of D-input in the para- 
graph entitled "D-Type Conversion." 



OUTPUT 


INTERNAL 


CHARACTERS 


FORMAT 


NUMBER 


OUTPUT 


D15.8 


+ 12.34567890 


b0.12345679Db02 


D15.8 


-0.0012321 


-0.12321000D-02 


D15.4 


-9.176 


bbbbb-.9176Db01 


D11.4 


+ 123456. 


b0.1235Db06 
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D-Input. The external format of numbers input by 
the E, F, G or D input can be relatively loose. 
This format is identical for any of the inputs and 
is as follows: 

1. Leading spaces (leading spaces are ignored) 

2. A + or — sign (An unsigned input is assumed 
positive.) 

3. A string of digits 

4. A decimal point 

5. A second string of digits (All non-leading 
spaces are considered to be zeros.) 

6. The character D or E 

7. A + or — sign 

8. A decimal exponent 

Each item in the list above is optional although it 
is obvious that if format 3 and 5 (above) are 
present, 4 is required; and that if format 8 is 
present, 6 or 7 (or both) is required. 

Input data can be any number of digits in length, 
but must fall within the range of to ±10=''"' (0 to 
±10" in the DDP-116, -516). Double-precision 
input retains 14 digits of significance (12 digits for 
the DDP-116, -516), and single precision input re- 
tains 7 digits of significance (same for the DDP- 
116, -516). 



INPUT 
FORMAT 



CHARACTERS 
INPUT 



INTERNAL 
NUMBER 



D12.4 


bbbbbbbbbbbb 


D12.4 


bbbbbbbbbbbS 


D12.4 


bbbbbbbbbb3. 


D12.4 


1.0000000000 


D12.4 


bbbbbb7bbbbb 


D12.4 


bbbb2b3bb.bb 


D12.4 


bbbbbl.234E3 


D12.4 


bbbbl.234D3b 


D12.4 


-12345678E-3 


D12.4 


+ 123.40000-2 


E12.4 


-0.1234567-1-4 


E12.4 


bbbbbbl23456 


F12.3 


-bbbbbl23456 


F12.2 


bbbbbbl23456 


G12.1 


bbbbb- 123456 


G12.0 


bbbbb+ 123456 



+0.0 
+ 0.0003 
+ 3.0 
+ 1.0 
+70.0 
+20300.0 
+ 1234.0 
+ 1.234*10'» 
-1.2345678 
+ 1.234 
-1234.0 
+ 12.3456 
-123.456 
+ 1234.56 
-12345.6 
+ 123456.0 



Note in the above examples, if no decimal point is 
given, an implied decimal point placed to the left 
of the first d places from the right is assumed. If 
a decimal point is included, the d specification is 
ignored. 

Wherever the letter D appears in the examples in 
either the input format or characters input column, 



it may be replaced with the letter E, F, or G with 
the same result. All external numbers are con- 
verted to DOUBLE-PRECISION floating-point 
internal format, but are then truncated to SINGLE - 
PRECISION floating point format if required. In 
other words, a double-precision value can be input 
by either the E, F, G or D format descriptor, as 
can a single-precision value. 

An error flag is set if any format errors, range 
errors, or unrecognized characters are input within 
the field processed during input. This flag may be 
checked and reset by the use of the OVERFL 
function. The result of such an input is undefined. 

P Scale Factor (Basic Field Specification 
nP or -nP) 

A scale factor is sometimes used preceding one of 
the control characters - D, E, F, or G — to effect a 
multiplication by some power of ten. When used, 
it is of the form 

nPrKw.d or — nPrKw.d 

where n determines the power of ten to be uSed, 
and r is the repetition number. Initially an implied 
scale factor of zero is assumed. When a P descrip- 
tor is processed, the scale factor specified (n) re- 
mains active for all format descriptors that follow 
until another P descriptor is processed. The value 
n must be present and is any unsigned integer (if 
positive), a minus sign followed by an integer 
(if negative), or zero. The n parameter must pre- 
cede the letter P. 

The effect of the current scale factor is different 
on input than on output. 

Scale Factor Effect on Output 

1. For E and D output, the fractional part is mul- 
tiplied by 10" and the exponent is reduced by n. 



OUTPUT 


INTERNAL 


SCALE 


CHARACTERS 


FORMAT 


NUMBER 


FACTOR 


OUTPUT 


E12.4 


+ 123456. 


-5 


bbO.OOOOEbll 


E12.4 


-123456. 


-4 


b-O.OOOOEblO 


E12.4 


+ 123456. 


-3 


bb0.0001Eb09 


El 2.4 


-123456. 


—2 


b-0.0012Eb08 


E12.4 


+ 123456. 


-1 


bb0.0123Eb07 


E12.4 


-123456. 





b-0.1235Eb06 


El 2.4 


+ 123456. 


1 


bbbl.235Eb05 


E12.4 


-123456. 


2 


bb-12.35Eb04 


E12.4 


+ 123456. 


3 


bbbl23.5Eb03 


E12i4 


-123456. 


4 


bb-1235.Eb02 


E12.4 


+ 123456. 


5 


bbbl235.Eb02 


E12.4 


-123456. 


6 


bb-1235.Eb02 


D12.4 


+ 123456. 


-1 


bb0.0123Db07 


D12.4 


-123456. 





b-0.1235Db06 
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OUTPUT 


INTERNAL 


SCALE 


CHARACTERS 


FORMAT 


NUMBER 


FACTOR 


OUTPUT 


D12.4 


+ 123456. 


1 


bbl.2346Db05 


D12.4 


-123456. 


2 


b— 12.346Db04 


D12.4 


+ 123456. 


3 


bbl23.46Db03 


D12.4 


-123456. 


4 


b-1234.6Db02 


D12.4 


+ 123456. 


5 


bbl2345.Db01 


D12.4 


-123456. 


6 


b-12345.Db01 


2. For F output, the internal number is multiplied 


by 10" before output conversion. 




OUTPUT 


INTERNAL 


SCALE 


CHARACTERS 


FORMAT 


NUMBER 


FACTOR 


OUTPUT 


F8.2 


-123.456 


-5 


bbb— 0.00 


F8.2 


+ 123.456 


-4 


bbbbO.Ol 


F8.2 


-123.456 


—3 


bbb-0.12 


F8.2 


+ 123.456 


-2 


bbbbl.23 


F8.2 


-123.456 


-1 


bb-12.35 


F8.2- 


+ 123.456 





bbl23.45 


F8.2 


-123.456 


1 


-1234.56 


F8.2 


+ 123.456 


2 


$12345.6 


F8.2 


-123.456 


4 


=1234560 


F8.2 


+ 123.456 


6 


$1234560 



temal value is equal to the external number divided 
by 10" (n= current scale factor value). The effect 
of the scale factor is suspended, however, if the 
external number contains an E or D scale factor. 

2. For I, A, X or H format descriptors, the scale 
factor has no effect. 

Complex Number Conversion 

Complex numbers are made up of two single pre- 
cision real numbers. Each of the numbers are de- 
scribed using E, F, or G format descriptors. 




3. For Gw.d output, the effect of the scale factor 
is suspended if the number is in the range of 0.1 
< 10". For values outside this range, the scale 
factor has the same effect as with E output. 



OUTPUT 


INTERNAL 


SCALE 


CHARACTERS 


FORMAT 


NUMBER 


FACTOR 


OUTPUT 


G12.4 


+0.012345 


2 


bbbl2.35E-03 


G12.4 


-0.123456 


2 


b-0.1235bbbb 


G12.4 


+ 1.234567 


2 


bbbl.235bbbb 


G12.4 


—1234.56 


2 


bb-1235.bbbb 


G12.4 


+ 12345.6 


2 


bbbl2.35Eb03 


G12.4 


-123456.0 


2 


bb-12.35Eb04 



4. For I, A, X or H format descriptors, the scale 
factor has no effect. 

Scale Factor Effect On Input 

1. For E, F, G, or D format descriptors, the in- 



INPUT 
FORMAT 


SCALC 
FACTOR 


CHARACTERS 
INPUT 


INTERNAL 
NUMBER 


E12.4 
E12.4 


-3 
-2 


bbbbbbl23456 
-l3bbbbl23456 


+ 12345.6 
-1234.56 


E12.4 


-1 


bbbbb+123456 


+ 123.456 


E12.4 





bbbbb-123456 


-12.3456 


E12.4 


1 


bbbbbbl23456 


+ 1.23456 


E12.4 


2 


bbb-bbl23456 


-0.123456 


E12.4 


3 


bbbbbbl23456 


+0.0123456 


E12.4 


-3 


bbbbbbl234.5 


+1234500.0 


E12.4 


-2 


bbl234.5E+01 


+ 12345.0 


E12.4 


-1 


b0.63217E-02 


+0.0063217 


E12.4 





bbb-6.7809D2 


-678.09 



L-Type Conversion (Basic Field 
Specification Lw or nLw) 

The external format of a logical quantity is T or 
F; and the internal format is -|-1 (for T) or 
(for F). 

L-Output. If the internal value is 0, an F will be 
output; otherwise, a T will be output, w-1 leading 
blanks precede the letter. 



OUTPUT 
FORMAT 



INTERNAL 
DATA 



CHARACTERS 
OUTPUT 



LI 
LI 
L4 
L5 
L6 
LO 




1 
—2 
3 

1 



F 

T 

bbbT 

bbbbT 

bbbbbF 

(NO OUTPUT) 



L-Input. Leading blanks are ignored. If the first 
non-blank character is a T, the internal data is set 
to 1. If the first non-blank character is an F, the 
internal data is set to 0. If the first non-blank 
character is not T or F, set the internal data to 
and set the error flag to ON (flag sensed by 
OVERFL function subroutine). The remainder of 
the external field is scanned and ignored. 
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OUTPUT 
FORMAT 



DDP-24/ 124/224 FORTRAN 



DDP-116 FORTRAN 



INTERNAL 


CHARACTERS 


DATA 


OUTPUT 


ABCD 


A 


ABCD 


ABC 


ABCD 


ABCD 


ABCD 


bABCD 



INTERNAL 


CHARACTERS 


DATA 


OUTPUT 


AB 


A 


AB 


bAB 


AB 


bbAB 


AB 


bbbAB 



Al 
A3 
A4 
A5 



INPUT 
FORMAT 



LI 
L2 
L3 
L4 
L8 
L8 
L8 
L8 



CHARACTERS 


INTERNAL 


INPUT 


DATA 


F 


+0 


bT 


+ 1 


bPb 


+0 


TRUE 


+1 


bbbFALSE 


+0 


TRUEbbbb 


+1 


bNEUTRAL 


+0 (error) 


bbb-TRUE 


+0 (error) 



A-Type Conversion (Basic Field 
Specification Aw or nAw) 

Four characters of alphanumeric information stored 
in a computer word make up an alphanumeric item 
(two characters maximum on the DDP-116, -516 
FORTRAN). Any character in this format is ac- 
cepted as an allowable alphanumeric character. 

A-Output. For w greater than 4, w-4 leading blanks 
are output followed by the four characters of the 
alphanumeric argument. For w less than 4, the first 
(left-most) w-characters of the alphanumeric argu- 
ment are output. This discussion can be made ap- 
plicable to the DDP-116, -516 by substituting the 
number 2 in all references to number 4. 

A-Input. For w greater than 4, the last four 
characters are stored internally. For w less than 
4, w-4 trailing blanks are added. This discussion 
can be made applicable to the DDP-116, -516 by 
substituting the number 2 in all references to the 
number 4. 

H-FiELD Descriptor (Basic Field 
Specification nHaia2a3 an or Hai) 

The nH descriptor causes Hollerith (alphanumeric) 
information to be read into or written from the 
n characters (including blanks) that follow the 
letter H in the format specification list (characters 

aia2a3 an). The value of n must be greater 

than 0. If no value of n precedes the letter H, a 
value of n is assumed to be 1. 



H-Output. The n-characters following the letter H 
(including blanks) are output. 



FORMAT 
DESCRIPTOR 



ChlARACTERS 
OUTPUT 



3HXYZ 

13H16bNOVbl965,b 

H3 

IHb 



XYZ 

16bNOVbl965,b 

3 

b 



This field specification provides the basic means 
for supplying headings on output reports. It is, 
however, also used for vertical line spacing when 
outputting on the line printer or typewriter. The 
first character output determines the line spacing 
as follows: 



CHARACTER 


VERTICAL SPACING 


Blank 


One line 





Two lines 


1 


Skip to first line of next page 


-f- 


No advance (line printer only) 


Others 


One line (and output first character) 



When outputting on the line printer or typewriter, 
it is common practice to begin each FORMAT 
statement with a Hollerith specification that wiU 
give the proper vertical spacing. Otherwise, a non- 
blank character may be inadvertently inserted into 
the control position with undesirable results. 



H -Input, n characters are read from the external 
device and replace the n characters following the 
letter H. This function is useful for modifying a 
part of a heading which will be output later (such 
as date or run number) . 



ORIGINAL 

FORMAT 

DESCRIPTOR 



CHARACTERS 
INPUT 



MODIFIED 

FORMAT 

DESCRIPTOR 



3HXYZ 

llH16bN0Vbl965 

SHbSMITHbb 



ABC 

22bDECbl965 

bbJONESb 



3HABC 

nH22bDECbl965 
8H bbJONESb 
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X-FiELD Descriptor (Basic 
Specification nX or X) 

The value of n is an integer number greater than 
0. If the letter X is not preceded by an integer, 
a value of 1 is assumed for n. 

X-Output. n spaces are output. 



FORMAT 
DESCRIPTOR 



CHARACTERS 
OUTPUT 



X 

IX 

3X 

lOX 



b 

b 

bbb 

bbbbbbbbbb 



Repeating of Format Descriptors 

Repetition of format descriptors is accomplished 
at four levels. 

Repetition of a Single Descriptor. The integer pre- 
ceding the H or X descriptors has special meaning, 
and the H and X descriptors cannot be repeated 
individually. For all other descriptors, the integer 
preceding their letter indicates the number of times 
the descriptor is to be repeated before going on to 
the next format descriptor in the format statement 
list. For example: 



X-Input. The next n-characters are read but 
ignored. This descriptor is useful in skipping over 
fields that do not need processing on the input 
record. 

/Record Descriptor 

Everywhere a comma is used in a format list, the 
comma can be replaced by a slash character or a 
series of slashes to indicate record terminations. 

On input, a sequence of n-slashes (n > 1) causes: 

1. The remainder of the present record to be 
ignored. 

2. The next n-1 records to be skipped over (n 
records if slashes occur at end of format state- 
ment) . 

3. The next record to be read if additional data 
is required to satisfy list items in the READ 
statement. 

On output, a sequence of n-slashes causes: 

1. The remainder of the present record to be 
padded with blanks and outputs the record. 

2. The next n-1 blank records to be output (n 
records if slashes occur at end of format state- 
ment) . 

3. The next record to be written if additional data 
is required to satisfy list items in the WRITE 
statement. 



FORMAT 



NO. OF RECORDS 
PROCESSED 



(13/4E12.5) 

(/F10.2,D20.12//I6/6E12.6) 

(6E12.6/10X.4I10,10X,F20.10///) 



FORMAT (4E10.3,2F12.4,6I4) 

is equivalent to 
FORMAT (E10.3,E10.3,E10.3,E10.3,F12.4, 
F12.4,I4,I4,I4,I4,I4,I4) 

Repetition of a Group of Descriptors. A group of 
descriptors may be enclosed in parentheses and the 
opening parentheses preceded by an integer con- 
stant greater than 0. This will cause the group 
of descriptors to be repeated the integer number of 
times before continuing to the next descriptor 
within the format statement list. An opening pa- 
renthesis not preceded by an integer has an implied 
repeat count of 1, meaning it is not repeated. For 
example: 



FORMAT (I6,2(E10.2,4X,3A3),I5) 

is equivalent to 
FORMAT (I6,E10.2,4X,A3,A3,A3,E10.2, 
4X,A3,A3,A3,I5) 

Repetition of Descriptor Groups. The groups de- 
scribed in the preceding subparagraph may them- 
selves be enclosed in parentheses preceded by an 
integer repeat count. Parentheses structure with a 
format descriptor list may not exceed a depth of 
two (not counting the parentheses around the en- 
tire format descriptor list). For example: 



FORMAT (12,2 (12,3 (D10.4,2X)), 12) 

is equivalent to 
FORMAT (I2,I2,D10.4,2X,D10.4,2X, 

D10.4,2X,I2,D10.4,2X,D10.4,2X,D10.4,2X,I2) 

Repetition After Format List Exhausted. If, after 
using all the format descriptors in the format 
statement list, there still remains data to be input 
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or output, the format list is rescanned starting at 
the opening parenthesis that matches the last 
closing parenthesis in the format list. The paren- 
theses around the complete format list are not 
considered unless there are no other parentheses 
in the list. Any repeat count preceding the start 
re-scan open parenthesis is included in the re-scan. 
The following examples illustrate these rules: 

a. FORMAT (6E12.4) 

b. FORMAT (16/ (F10.3,4E15.6)) 

c. FORMAT (r6/3(4I5,4X),I5) 

d. FORMAT (I6,2(I10,4(I3,2X))) 

On output, every time the indicated repetition is 
made, the current record is padded with blanks 
and output. A new record is then started. On input, 
the indicated repetition causes the rest of the 
current record to be skipped, and the next record 
to be read. 

In example a, the first 72 characters of each record 
are processed. In example b, the first 6 characters 
of the first record are processed, and the first 70 
characters of each succeeding record are processed. 
In example c, the first 6 characters of the first 
record are processed, and the first 77 characters of 
each succeeding record are processed. Finally, in 
example d, the first 66 characters of the first record 
are processed, and the first 60 characters of each 
succeeding record are processed. 

Example of Formatted Output. In the following 
example, the effects of various size data lists, 
repetition of format descriptors multiple record 
definitions, and line advance control is shown. 



The following output on a typewriter or line 
printer would result. 



ABC 














XY 


5 


6 


7 


8 


5 


6 


XY 


7 


8 


5 


6 


7 




ABC 














XY 


5 


6 


7 


8 


5 


6 


XY 














ABC 














XY 


5 


6 


7 


8 


5 


6 


XY 


7 


8 


5 


6 


7 


8 


ABC 














XY 


5 


6 


7 


8 


5 


6 


XY 


7 


8 


5 


6 


7 


8 


XY 


5 












ABC 














XY 


5 


6 


7 


8 


5 


6 


XY 


7 


8 


5 


6 


7 


8 



Result of statement 1 



Result of statement 2 



Result of statement 3 



Result of statement 4 



Result of statement 5 



XY 



5 6 7 8 5 6 



Example of Formatted Input. The following ex- 
ample shows the effects of repeating a group of 
format descriptors when the FORMAT statement 
does not describe all the arguments in the input 
statement list. Consider the following FORTRAN 
statements: 









■x 


n 


read'(3,ioi) ii,j'i,ki,li 




\ 


101 


F0RMAT(4I3) 




r 


12 


READ(3,102) I2,J2,IC2,L2 




\ 


102 


F0RMAT(2I3) 




( 


13 


READ{3,103^ 13.J3,K3,L3 




J 


103 


F0RMAT(n,l2.l3.l4,l5.l6) 




\ 


14 


READ(3,104^ I4.J4.IC4.L4 




? 


104 


F0RMAT(3HABC,X,4I2) 




\ 








^ 






-A 



V 


1 = 5 1 


1 


J - '6 ' ' / 


( 


K = ' 7 ' ' ' ( 


r 


L = 8 1 


r 1 


WRITE(1,106)I, J,K:,L,l,j',IC,L,i,J,K ' 1 


1 2 


WRITE(1,106)I, J,k,L,I, j' \ 


rio6 


F0RMAT(/4H ABC/2(3H XY, 1 4,2 j| 2) .3(l'3)/) )' 1 


1 3 


WRITE(l,106)l,J,k,L,l,j',K,L,l,J,K,L ( 


( ^ 


WRITE(1,106)l,J,k,L,l,j',K,L, i,J,K,L,l I 


1 ^ 


WRITE(l,106)l,J,k,L,l,j',K,L, ' ' / 


/ < 


: ' ' ' l,J,k,L,l,J,K,L,'l,J J 

— — — 1 1 r 1 1 1 f 



If the input data to be read by the preceding 
statements appeared in the fo^owmg form: 



I I I I I 

I 2345678901 2345678901 2345678 



1234567890123456789012345678 



1 2345678901 2345678901 2345678 



1 234 J67890i 23456^8901 2^45678'^ 
1 234^678901 23456^8901 2^45678' 



then: 

1. Statement 11 reads one card and defines II = 

123, Jl = 456, Kl = 789, and Ll = 012. 
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2. Statement 12 reads two cards. From the first 
card, it sets 12 = 123 and J2=456. From the second 
card, it sets K2 = 123 and L2=456. 

3. Statement 13 reads one card, setting 13=1, 
J3=23, K3=456, and L3 = 7890. Format descrip- 
tors 15 and 16 are ignored. 

4. Statement 14 reads one card, replaces the Hol- 
lerith characters ABC in the format statement 
to the Hollerith characters 123, skips a charac- 
ter of the input data, and sets 14 = 56, J4 = 78, 
K4=90, andL4 = 12. 



FORMAT STATEMENTS ENTERED 
AT RUN TIME 

If the format of BCD data is not known at compile 
time, it is possible to include the formating data 
along with the input data. 

A FORMAT statement, processed at compile time, 
is stored in BCD format in sequential memory 
locations. The following chart shows the data gen- 
erated in memory by the format statement 

10 FORMAT (IHO, 3E10.5, 4X, 4113/). 



tors. FORMAT statement 100 would not have to 
be adjusted. 



DDP-24/124/224 
(4 char./word) 



DOP-116, -516 
(2 char./word) 



( 


1 


H 





( 


1 


1 


3 


E 


1 


H 








, 


5 


, 


f 


3 


4 


X 


t 


4 


E 


1 


1 


1 


3 


1 





, 


) 








5 
4 

f 

1 

3 
) 


X 

4 
1 
/ 



A READ or WRITE statement that refers to an 
array name instead of a FORMAT statement, is 
indicating that the format information is to be read 
into memory to some other input statement (as an 
alphanumeric array) prior to execution of the 
READ or WRITE statement. The following exam- 
ples illustrate the manner in which the Ust might 
be entered at run time. 

Array FLIST was dimensioned for 20 words since 
4 characters are packed per word and there are 80 
characters per card. (The DDP-116, -516 FORT- 
RAN packs 2 characters per word; therefore, 
FLIST is dimensioned for 40 words.) A smaller 
dimension may be used if the card is not full, or 
a larger dimension may be used if more than 
one card is needed to define the format descrip- 







DIMENSI0N FLIST(20), DATA(100)\w 




INTEGER FLIST ' '/ 




RIAD(3, 100) FLIST C 


100 


F0RMAT(2OA4) J 




READ'(3, FLiiT) dXta ~^ S 




' c 




r 



DDP-24/124/224 FORTRAN 




DDP-116, -516 FORTRAN 

The following examples have their format lists de- 
fined at run time and also refer to the device 
number symbolically, allowing the device to be 
determined at run time. This method of defining 
the device has one drawback in that the subroutine 
F$RN is unaware in advance which device drivers 
are required. Therefore the subroutine must load 
all drivers when the program is loaded. 




DDP-24/124/224 FORTRAN 




DDP-116, -516 FORTRAN 
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SE3CTION VI 
SUBPROGRAMS 



Often it is found that a sequence of coding or a 
sequence of statements used to evaluate a function 
is required several times within a program, the 
only difference in the evaluation being the argu- 
ments for that function. In such instances, it is 
desirable to express the function once rather than 
repeat the coding every time the function is used. 
This can be done by preparing subprograms which 
perform commonly recurring operations and keep- 
ing them on a library tape for program use at 
execution time. Another method of eliminating the 
repetition of coding is to include in the FORTRAN 
compiler certain basic subprograms which will be 
compiled as part of the object program. 

Sometimes certain subunits of the program are also 

repeated frequently, and it may be desirable to 

Tite each of these once and call for them many 

.mes. In this case, there is a choice of several types 

of subprograms. 

In addition to eliminating repetitive code, another 
advantage in constructing programs from subpro- 
grams is that it may be possible to use the same 
"building blocks" in other programs or in modifica- 
tions to the original program. 

In FORTRAN there are five types of subprograms 
which are; 

Library functions 
Statement functions 
FORTRAN functions 
Subroutine subprograms 
BLOCK DATA subprogram 

Of these, the first three result in a single value and 
are designated functions; the fourth may result 
in more than one value and is designated a sub- 
routine; and the fifth is used to initialize data 
into COMMON areas and is also designated a 
subroutine. 

For each type of subprogram, there are standard 
ractices which must be followed in reference to 
ailing, naming, and defining (generating) the sub- 
program. 



All functions are incorporated into the object pro- 
gram by referencing in a source program the name 
of the function in the expression part (right-hand 
side) of an arithmetic formula. The following are 
examples of arithmetic expressions including fimc- 
tion names: 

Y = A - SIN (B-C) 
C = MINO (M,L) 

The names of library, statement, and FORTRAN 
functions are used as shown in the example. The 
appearance of a function name in the arithmetic 
expression serves to "call" the function. The value 
of the function is then computed, using the argu- 
ments which are supplied in the parentheses follow- 
ing the function name. Only one value is produced 
by each of the three functions. 

FUNCTION SUBPROGRAMS 

Function names consist of one to six alphabetic 
and numeric characters (not special characters), 
the first of which must be alphabetic. The first 
character must be I, J, K, L, M, or N (or defined 
as INTEGER) if the value of the function is to be 
fixed point. Alternately, a specification statement 
may be used to type a function value as REAL, 
INTEGER, DOUBLE PRECISION, COMPLEX, 
or LOGICAL. The name of the function is followed 
by parentheses enclosing the arguments (which 
may be expressions) separated by commas. Some 
examples of function usage are: 

SIN (A + B) 
SOME (X, Y) 
SQRT (SIN (A)) 
ITAN (3.*X) 

LIBRARY FUNCTIONS 

Library functions are external prewritten functions 
of a special type and are usually written in assem- 
bly language. Initially, they were designed to be 
used on the library tape— hence the name. These 
functions are closed subroutines; that is, instead of 
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appearing in the object program each time they are 
referenced in the source program, they appear only 
once. 

Table 6—1 lists the library functions in the 
FORTRAN IV library. A more detailed descrip- 
tion of the functions is given in the individual 
subroutine write-ups contained in the library 
documentation. 

TABLE 6—1. 
FORTRAN IV UBRART FUNCTIONS 



FUNCTION 
NAME 


ARGUMENT 
MODE* 


RESULT 
MODE 


FUNCTION 
DEFINITION 


SIN 


REAL 


REAL 




DSIN 


DOUBLE 


DOUBLE 




CSIN 


COMPLEX 


COMPLEX 




COS 


REAL 


REAL 




DCOS 


DOUBLE 


DOUBLE 




CCOS 


COMPLEX 


COMPLEX 




ATAN 


REAL 


REAL 


ARCTANGENT 


DATAN 


DOUBLE 


DOUBLE 


(a) 


ATAN2 


REAL (2) 


REAL 


ARCTANGENT 


DATAN2 


DOUBLE (2) 


DOUBLE 


(al/a2) 


TANH 


REAL 


REAL 


HYPERBOLIC 
TANGENT (a) 


SQRT 


REAL 


REAL 




DSQRT 


DOUBLE 


DOUBLE 


/a 


CSQRT 


COMPLEX 


COMPLEX 





EXP 



REAL 



REAL 



DEXP 



DOUBLE 



DOUBLE 



e(») 



CEXP 


COMPLEX 


COMPLEX 




ALOG 


REAL 


REAL 




DLOG 


DOUBLE 


DOUBLE 


LOG,(a) 


CLOG 


COMPLEX 


COMPLEX 




ALOG 10 


REAL 


REAL 


LOG.„(a) 


DLOG 10 


DOUBLE 


DOUBLE 


10^ ' 


ABS 


REAL 


REAL 




lABS 


INTEGER 


INTEGER 


|al 


DABS 


DOUBLE 


DOUBLE 






COMPLEX 


REAL 




CABS 


/a2+a2 


AMOD 


REAL (2) 


REAL 




MOD 


INTEGER (2) 


INTEGER 


aj (mod ag) 


DMOD 


DOUBLE (2) 


DOUBLE 




AINT 


REAL 


REAL 




INT 


REAL 


INTEGER 


"Truncate to 


IDINT 


DOUBLE 


INTEGER 





AMAXO INTEGER (>1) REAL 



AMAXl REAL (>1) 



REAL 



MAXO INTEGER (>1) INTEGER 



MAXl REAL (>1) 



INTEGER 



.Choose 
largest 
"argument 



DMAXl DOUBLE (>1) DOUBLE 



AMINO 


INTEGER (>1) 


REAL 




AMINl 


REAL (>1) 


REAL 


Choose 


MINO 


INTEGER (>1) 


INTEGER 


smallest 


MINI 


REALOD 


INTEGER 


argument 


DMIN 


DOUBLE (>1) 


DOUBLE 





FUNCTION 
NAME 



ARGUMENT 
MODE • 



RESULT 
MODE 



FUNCTION 
DEFINITION 



FLOAT INTEGER 



REAL 



IFIX 



REAL 



INTEGER 



SNGL 



DOUBLE 



REAL COMPLEX 



AIMAG COMPLEX 



REAL Convert 

REAL argument 

REAL '"'^« 



DBLE 



REAL 



DOUBLE 



CMPLX 


REAL (2) 


COMPLEX 




SIGN 


REAL (2) 


REAL 




ISIGN 


INTEGER (2) 


INTEGER 


Transfer sign 


DSIGN 


DOUBLE (2) 


DOUBLE 




DIM 


REAL (2) 


REAL 


Positive 


■DIM 


INTEGER (2) 


INTEGER 


difference 


CONJG 


COMPLEX 


COMPLEX 


Complex 
conjugate 



•The number in parenthesis 
arguments. 



specifies the number of 



Notice, as in the example below, that a fimction 
may have more than one argument; as in general 
mathematical usage, multiple arguments are sepa- 
rated by commas. 




STATEMENT FUNCTIONS 

Certain functions such as square root, sine, and log 
can be written as arithmetic expressions. These 
functions are restricted to those available in the 
library. It is possible, however, to write expressions 
involving functions peculiar to the problem at hand. 
Each desired function is defined by a statement 
function. For example, if the function 



g(x) = 1.3 + /4.1x -I- x^ 

is to be used several times in a program, a state- 
ment function defining G(X) might be written: 




An arithmetic formula later employing GXX in the 
program might be: 
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this use of GXX, before the value of the func- 
uon is computed, the quantity ALPHA*BETA is 
substituted for X in the expression defining GXX. 

In general, statement functions must conform to 
the following rules: 

1. All statement functions must be the first execu- 
table statements in that program. 

2. The function name must have one to six alpha- 
betic or numeric characters, the first of which must 
be alphabetic. 

3. The name of the function is followed by pa- 
rentheses enclosing the argument or arguments. 
Multiple arguments are separated by commas. 
Each argument must be a single nonsubscripted 
variable. 

4. Any argument that is a real variable in the 
definition of a function must be a real quantity in 
any subsequent use of the function. A similar rule 
applies to arguments of other modes. 

5. The value of a function is a real quantity un- 
less the name of the function begins with I, J, K, 
L, M or N; in which case the value is an INTEGER 
quantity, or the function may be specified as 

^EAL, INTEGER, DOUBLE PRECISION, COM- 
LEX, or LOGICAL in a specification statement. 

6. The right side of a function statement can be 
any expression that meets the requirements speci- 
fied for expressions, except that dummy variables 
cannot be subscripted. It may involve functions 
freely, including library functions, previously de- 
fined statement functions, and FORTRAN func- 
tions. 

7. No function can be used as an argument of 
itself. 

8. Any number of variables appearing in the ex- 
pression on the right side of a function can be 
stated on the left side as arguments of the function. 
Since the arguments are only dummy variables, 
their names are unimportant (except as indicating 
mode) and may be the same as names appearing 
elsewhere in the program. 



9. Variables on the right side of a function that 
are not stated as arguments are treated as param- 
eters. The naming of parameters must follow the 
normal rules of uniqueness. 



Tjrpical statement functions are: 





1 


FIRST(X) = X**2 + A**2 I 




2 


sec0'nd(r,s) = sq'rt(fir'st(r/(r+s))) ; 








— 












15 


Q(l) '= FIr'sT(Y * B(l))' J 


















, . 1 , ..,-. , ^ 




27 


P - SEC0ND(1 .7*DELTA,ALPh'a)*Pl) 


-^ 







FORTRAN FUNCTIONS 

There are situations in which it is desired to use a 
particular function in an arithmetic statement, but 
this function cannot be defined by a single arith- 
metic statement. However, if this mathematical 
relationship has a single result, the FORTRAN 
function subprogram may be used. Compihng a 
FORTRAN function produces a function subpro- 
gram in the same form required for a library func- 
tion. Except for the method generated, FORTRAN 
and LIBRARY functions are identical in use and 
format. 

FORTRAN functions are closed subprograms not 
stored within the range of the main program. The 
main program transfers control to the subprogram 
as required. After the subprogram has completed 
the required calculation, control reverts to the 
main program. Although the subprogram may be 
used several times in the total structure, it appears 
in storage only once. A FORTRAN function can 
be compiled independently of the main program 
which means that the function can be used with 
different main programs. One of the primary dif- 
ferences between a FORTRAN function and a 
subroutine subprogram is that a function returns 
with a single value while a subroutine may return 
with multiple values. 

The general form in which a FORTRAN function 
is written is: 

FUNCTION NAME (Argumenti, Argumentz, . . .) 
Arithmetic statements to evaluate the function 
NAME = Final calculation 
RETURN 

The FUNCTION statement must be the first state- 
ment of the subprogram and defines it as such. The 
FORTRAN function may consist of many state- 
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men+s of any type except the statements FUNC- 
TION, SUBROUTINE, or BLOCK DATA. 

The name of the FORTRAN function consists of 
one to six alphabetic or numeric characters, the 
first of which must be alphabetic. The first charac- 
ter must be I, J, K, L, M or N if the value of the 
function is to be INTEGER; otherwise, the func- 
tion value is REAL. The mode of the function can 
also be set by preceding the word FUNCTION 
with the word INTEGER, REAL, DOUBLE PRE- 
CISION, COMPLEX or LOGICAL; in which case, 
the first letter mode determination convention is 
overruled. The function name must not be the same 
as that of any variable appearing elsewhere in the 
FORTRAN function or in any program which uses 
the function. 

There must be at least one argument; and there 
may be as many as required in the subprogram. 
The arguments must be non-subscripted variable 
names. If any of the arguments are arrays, a 
DIMENSION statement involving these argu- 
ments is necessary. The arguments may be any 
variable names occurring in executable statements 
in the subprogram. Actually, these are dummy 
variables and the calculation is set up in terms of 
these dummy variables. A dummy variable in a 
FORTRAN function must not appear on the left 
side of an arithmetic statement except as a sub- 
script. The reason is that functions may not change 
the value of the arguments supplied to the sub- 
program by the main program. Similarly, a dummy 
variable must not appear in an ASSIGN statement. 

The arithmetic statements to evaluate the function 
are written in the normal fashion in terms of argu- 
ments and constants. The subprograms must 
evaluate a single-valued function (one which has 
one and only one value for a given set of argu- 
ments). The name of the function must be used 
as a variable and evaluated by an arithmetic state- 
ment; or stated another way, the name of the func- 
tion must appear on the left side of an arithmetic 



statement. It is the value of the function name, 
used as a variable, that is returned as the function 
value. 



A RETURN statement indicates the conclusion of 
the subprogram, and takes the form: 

RETURN 

This statement terminates the subprogram and 
returns control to the main program. A RETURN 
statement must be the last statement to which 
control passes in a FORTRAN function; that is, it 
must be the last statement logically, but it is not 
necessary that it be last physically. For example: 



$0 



-'^- 



C0MPLEX F U NCTI0N C A^R TI(R,THETA 1 



X = R * C0S(THETA/57.3) 


\ 


Y = R * SIN(THETA/57.3) 




CARTI = CMPLX(X,Y) 


\ 


RETURN ' 


? 


END 


^ J 


END 0f J0B ' f' 



Using a FORTRAN Function Subprogram. 

Statement. A subprogram introduced by a FUNC- 
TION statement is called for in the main program 
by an arithmetic formula involving the function 
name. For example, as in Figure 6—1, the subpro- 
gram introduced by FUNCTION AVRG (ALIST, 
N) could be called for in the main program by the 
arithmetic formula: 

TEXT = AVRG (SET, 200) 



Arguments. The list of arguments in the main pro- 
gram may contain any legitimate FORTRAN con- 
stant, variable (subscripted or non-subscripted), 
expression, subfunction name, or name of any array 
provided the corresponding dummy variable in the 
subprogram has the same mode. A Hollerith argu- 
ment cannot be used. There must be agreement in 
number, order and mode between the argument list 
following the function name in the main program 
and the argument list (dummy variables) in the 
FUNCTION statement. The subprogram must 
contain the same DIMENSION statements as the 
main program. Subfunction names included in ar- 
gument lists must also appear in an EXTERNAL 
statement. (See Section IV.) 
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DIMENSION SET(500) 




y 






READ'(2,5)(SET{I),' 1 = 1,200) 
















( 




5 


F0RMAT(6F12.8) 
















f 






TEXT = AVRG(SET,200) 








' 








V 






WRITE(2,10)' TEXf 








. MAIN PROGRAM 








/ 




10 


F0RMAT(2OH1 AVERAGE' 0F ! 


JET IS 


E14.i) 












\ 






ST0P 




' 












) 






END 
















C 




















y 




1 


FUNCTI0N AVRG(ALIST,N) 
















C 






DIAAENS10N ALIST(500) 
















y 






SUM - ALIST(l) 




1 












C 






D0 10 1-2, N 
















C 




10 


SUM = SUM + ALIST(I) 








■ SUBPROGRAM 








ji/ 






AVRG = SUM/FLi8AT(Ni 
















y. 






RETURN 
















\ 






END 
















r 


$( 


) 


END 0F J0B 
















\ 








-— — — 


' J 








1 



FIGURE fr-1 



SUBROUTINE SUBPROGRAMS 

Some desirable building blocks have multiple out- 
puts and can be compiled as SUBROUTINE sub- 
programs. Each may also have multiple inputs and 
the calculation may require many statements. 

The SUBROUTINE subprogram is compiled in- 
dependently of the main program and is called for 
by a separate statement. When it is desired to use 
a SUBROUTINE subprogram the main program 
contains a statement in the form: 



CALL NAME (Argumenti, Argument2, ) 

Control is transferred at this point to the specified 
subroutine. When the calculations in the sub- 
routine are finished, control is transferred to the 
statement following the CALL in the main pro- 
gram. 

The general form in which a SUBROUTINE sub- 
program is written is: 

'SUBROUTINE NAME (Argumenti, Arguments . .) 



Statements to evaluate required results 

RETURN 

END 

The SUBROUTINE statement must be the first 
statement of the subprogram; it defines it as a 
subroutine. 

The name of a subroutine consists of one to six 
alphanumeric characters, the first of which is 
alphabetic. In fact, the subroutine name must not 
be the same as any variable (subscripted or not) 
appearing elsewhere in the subprogram, or any 
program which calls it. 

The arguments stated in the subroutine are 
dummy variables representing input and output 
variables; each is either a variable name, an array 
name or a subfunction name. It is allowable to have 
a subroutine with no arguments. If an argument 
is the name of an array, it must appear in a 
DIMENSION statement following the SUB- 
ROUTINE statement. The arguments in the 
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SUBROUTINE list usually contain one or more 
dummy variables representing the result or results 
to be returned to the main program. 

The intermediate part of the subroutine may con- 
tain any of the usual FORTRAN statements, 
arithmetic, control, input-output, or specification, 
except the statements FUNCTION, SUBROU- 
TINE, DATA, and BLOCK DATA. The dummy 
variables representing the results of the subroutine 
may be used freely on the left side of arithmetic 
statements. Each dummy variable representing a 
result must appear at least once on the left side of 
a statement so that the value will be stored for 
future use. 

A subroutine is terminated by a RETURN state- 
ment which is the last statement (logically) to 
which control passes in a subroutine. The last card 
physically in each subprogram must be an END 
card. 

Using A Subroutine Subprogram. When it is de- 
sired to use a SUBROUTINE subprogram in a 
program, a CALL statement is used to transfer 
control to the subroutine. The CALL statement is 
of the form: 

CALL NAME (Argumenti, Argument2, . . .) 

or 
CALL NAME 

where NAME represents the symbolic name of a 
subroutine. The subroutine must be available to 
the main program at the time of execution of the 
program. 

The arguments may have any one of seven forms: 

1. Constant 

2. Hollerith constant 

3. '' ariable name 

4. Subscripted variable name 

5. Array name 

6. Expression 

7. Subfunction name 



A subfunction argument must be defined in the 
calling program. Except for Hollerith constants, 
the list of arguments in the CALL statement must 
agree in number, order, and mode with the list 
given in the SUBROUTINE statement. If any of 



the arguments are arrays, equivalent DIMEN- 
SION statements must appear in the subroutine 
and main program. 

A Hollerith constant in the argument list consists 
of an integer number, the letter H, foUowed by 
the integer-number of characters. The characters 
are stored as an array containing four characters 
per word (two characters per word in the DDP- 
116, -516) with the last word left- justified if neces- 
sary. The equivalent item in the subroutine's 
argument must be an array of large enough length 
to hold all characters. 

Assume, for example, it is desired to multiply 
matrix A, N rows and M columns, by matrix B, M 
rows and L columns; the product matrix C has N 
rows of L columns. The subroutine shown in Figure 
6—2 accomphshes this operation. 

A DIMENSION statement foUowing the SUB- 
ROUTINE statement specifies the maximum size 
of the matrices that can be used. 



BLOCK DATA SUBPROGRAM 

The DATA statement can be us' ^ to initialize 
values of variables or array items (see Section IV) 
but cannot initialize values of items in blank or 
labeled COMMON areas. Blank COMMON areas 
cannot be initialized, but labeled COMMON areas 
can be initialized by a BLOCK DATA subprogram 
in which the labeled COMMON areas are first 
described by specification statements and then in- 
itialized by DATA statements. This is the only 
purpose a BLOCK DATA subprogram can have. 

A BLOCK DATA statement takes the form: 

BLOCK DATA 

This statement may only appear as the first state- 
ment of specification subprogr ns that are called 
BLOCK DATA subprograms, and that are used 
to enter initial values into elements of labeled 
COMMON blocks. This special subprogram con- 
tains only type-statements, EQUIVALENCE, 
DATA, DIMENSION, and COMMON statements. 
If an entity of a given COMMON block is given an 
initial value in such a subprogram, a complete set 
of specification statements for the entire block 
must be included, even though some of the ele- 
ments of the block do not appear in DATA 
statements. Initial values can be entered into more 
than one block in a single subprogram. 
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-H 


I J 

1 


r <«| 111 ioj •« ■•! 

DIMENS10N X(10,15), Y(15 


B) 5£) .18, L 

12), E(I0,12),LIST (2)1 


^ 18, si-l — _!!, y4_ii 


( 






READ(2,4) ((X(I.J). J»1.15).| 


-1.10), 














\ 




i 


< ((Y(I,J),J-1,12) 


,1=1,15) 














J 




4 


F0RMAT(6E12. 6) 
















( 




5 


CALL MATMPY(X,5,10,Y,7,a) 
















f 






D0 13 J = 1,7 








- MAIN PROGRAM 






V 




13 


WRITE(4,15) (H(I,J),1 = 1,5) 








' ' 








y 




15 


F0RMAT(1Hb 6E1776) 
















V 






CALL EX1T(6HTP1732) 
















) 






ST0P 
















C 






END 
















P 








' 






' 








C 




1 


SUBROUTINE MATMPY^A,N,^ 


LB.L.C) 














y 






DIMENSI0N A(10,I5).B(15.1 


2).C(10.12) 






' 








S 






D0 5 1-1, N 
















C 






D0 5 J = 1,L 
















j^ 




3 


C(I,J) = 0.0 






■ 


SUBROUTINE 








\. 






D0 5 K-=1,M 


' 






' 








\ 




5 


C(I,J) = C(I,J)+A(I,K)*B(K,J) 
















Q 






RETURN 
















) 






END 
















\ 












1 










J 






SUBR0UTINE EXIT (LIST) 








' 








\ 






DIMENSI0N LIST(2) 
















r 






WRITE(1,5) LIST 


' 














\ 




5 


F0RMAT(12H ENd' 0F J0B , 


A8, /) 




■ 


SUBROUTINE 








^ 






RETURN 
















\ 


' 


END 
















^ 


— r 


^ND 0'F J0B 

1 1 r I 1 


1 




• 










S 



FIGURE 6—2 




BL0CK DATA 



C0MM0N /C0MI/C2,C3,ARR/C0 M2/X,Z,C 



DIME^>4SI0n' ARrt(40) 



EQUIVALEN'CE(C1,'"ARR(T)'),(C4,'ARR(2))~ 



INTEGER Z 



C0MPLEX C 



DATA CI, C2,C3, 04/4*0.0/, E, C/45, (1 . 3, 3 . 1 4)/ 

1 1 1 1 f 1 ■ ^— 

END 
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SECTION VII 
FORTRAN SYSTEM DESCRIPTION 



LISTINGS 

Symbolic Listings 

The operator may choose to have a symbolic listing 
generated along with the object output tape during 
compilation of a FORTRAN program. The method 
of making this choice and specifying the output 
device is detailed in the specific FORTRAN com- 
piler operating instructions for each computer. 
The listing consists of two types of linos: source 
statement and object output. 

Source statement lines are inserted into the listing 
prior to the object coding that the source statement 
generates. The line consists of the card image (or 
images) that make up a source statement. 

'^he object output line consists of a relative location 
ress (octal), a mnemonic operation code, and 
tni address field. If the address references a vari- 
able, it is output in symbolic form. If the address 
references a constant, the first word of the con- 
stant is output in octal form. If the address is 
absolute, it is output in octal form. If the address 
is relative (not symbolic), a local address is given. 
Indexing and indirect indicators are also included 
when applicable. 

A sample of a typical symbolic listing generated by 
the DDP-24/-124/-224 compiler follows. The DDP- 
116/-516 compiler generates a similar format but 
with different instruction mnemonics and shorter 
octal constants. 

7 INTER -ITER -HI 

0000 LDA ITER 

0001 ADD = '00000001 

0002 STA INTER 

K = l 

0003 LDA = '00000001 

0004 STA K 

22 BIGX-X/Y 

0005 LDA X 
'^006 LDB X 

17 JST D$22 
v/olO NOP Y 
0011 STA BIGX 



0012 S'l'B BIGX 


C-- 






JM1=J-1 


0013 


LDA J 


0014 


SUB = '00000001 


0015 


STA JMl 




DO 26 J = 3,10 


0016 


LDA = '00000003 


0017 


STA J 


6 


JMl = JMl -1- J 


0020 


LDA JMl 


0021 


ADD J 


0022 


STA JMl 


0023 


LDA J 


0024 


ADD = '00000003 


0025 


SKG = '00000012 


0026 JMP 70017 


Error Messages 



Any time the compiler detects an error in format 
of a FORTRAN statement, a two line error mes- 
sage is typed or printed in the listing. If the error 
is of a type that is recognized as soon as it is en- 
countered, the first line is a duplicate of the line 
in which the error occurs. If the error cannot be 
recognized until later in the program, the line at 
which the error is recognized contains a left point- 
ing arrow (■«-) in column 6. In either case, the 
second extra line consists of a row of asterisks 
broken by the word ERROR in the left-hand 
margin and the error diagnostic in approximately 
the same horizontal position as the error. The error 
diagnostics for the DDP-24/-124/-224 compiler 
consists of four letter mnemonic whereas the diag- 
nostics for the DDP-116/-516 consists of a two 
letter mnemonic. Refer to Appendix E for a list of 
error definitions. Typical error messages for the 
DDP-116/-516 are: k = 3 

20 A = B*»2.0 + K 
20 A = B»*2.0 + K 
••••*»»* ERROR **•••••• ••♦• MM •••♦ 

WRITE (4, 42) A 

42 FORMAT (F10.4) 
In statement 20 there is a mixed mode error (MM) 
which is recognized immediately. 
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Mapping 

Generating a memory map of the program being 
compiled is divided into two parts. The first part 
consists of a list of variable names, array names, 
and constants. This list is generated by the com- 
piler after compilation of a FORTRAN program 
and under operator option. The method of request- 
ing such a list is detailed in the specific FORTRAN 
compiler operating instructions for each computer. 

The second part of the memory map is generated 
by the loader program when the object program is 
loaded into memory. The operating instructions for 
the appropriate loader outline the procedure for 
generating this second list. The map generated by 
the loader consists of three addresses representing 
the first and last cell of the main program and the 
entry address for the main program. Following 
these addresses are the entry addresses of all 
COMMON blocks and subroutines called by the 
main program (or its subroutines). 

TRACING 

Two types of TRACE statements are available for 
use with the compiler. The first is used in tracing 
selected variables only, and the second is used in 
tracing all variables within a specified area. 



Item Tracing 

A TRACE statement used for item tracing specifies 
a list of variable names and/or array names. The 
format for this type of TRACE statement is 

TRACE Xi, X2, X3 . . . . Xm 

where x is any variable or array name. When any 
of the variables or array elements become re-de- 
fined by an arithmetic statement, coding is inserted 
into the object program, causing a line of trace 
information to be typed. Such a TRACE state- 
ment can be placed anywhere in a program; but 
insertion of coding for tracing the listed variables 
does not start until the TRACE statement is 
processed. As many TRACE statements as desired 
may be included in the program's source state- 
ments. 

Area Tracing 

A TRACE statement used for area tracing specifies 
a single statement number and has the format 

TRACE n 

where n is any statement number not yet defined. 



This type of TRACE statement inserts coding into 
the object program that causes the results of all 
arithmetic expressions (including IF statements) 
that follow the TRACE statement up to and in- 
cluding the statement specified by n, to output a 
line of trace information. This group of statements 
is designated the trace range. In addition to trac- 
ing aU arithmetic and IF statements within the 
trace range, all statement numbers defined within 
the range also cause coding to be generated that 
outputs a line of trace information, allowing the 
programmer to follow the sequence of statements 
as they are executed. 

An area TRACE statement should not be placed 
within the trace range of another area TRACE 
statement unless all such TRACE statements refer 
to the same statement number. 

Unconditional Trace 

If sense switch no. 4 is on during compilation, all 
arithmetic statements, IF statements, and state- 
ment numbers cause coding to be included in the 
object program for generating lines of trace in- 
formation at run-time. When the sense switch is 
reset, trace coding is only generated as directed by 
the TRACE statement. The sense switch may be 
set or reset before or during compilation. 

Trace Listing Format 

At run time of the object program, any trace cod- 
ing inserted by the compiler causes a line to be 
typed consisting of a variable name, an array name, 
or a statement, number, followed by an equal sign, 
followed by the current decimal value assigned to 
that name. The decimal value is typed in IN- 
TEGER, FLOATING POINT, or COMPLEX for- 
mat. Array names are followed by a subscript 
indicating the element within the array just modi- 
fied, as if it were a single dimensioned array. See 
Figure 7—1 for sample lines of trace information 
as typed at object run-time. 



CHAINING FACILITY 

The CHAINING facility of FORTRAN IV allows 
a FORTRAN object program that is too large to 
fit into the available memory space to be divided 
into segments. Each segment is run separately and 
inter-segment communication of data is accom- 
plished through common storage. 
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1 

INTEGER Variable: 


J0KER 




1739 


LOGICAL Variable: 


LI 


= 


. TRUE. 


REAL or D0UBLE PRECISI0N Variable: 


DIVERG 


= 


0.321 71 96400E 02 


IF Statement Expression Value: 


( ) 


= 


-0.1 93477821 7E-01 


Statement Number: 


(25) 






Complex Variable: 


CXDLTA 


' 


0.91 71 9781 47E 03, 0. 1037200000E 00 



FIGURE 7—1. 



The trace output is inhibited at object program 
run-time if sense switch no. 4 is set. 



■■ 


■ 


1 r 10 


■ti aei »i 10 








DIMENSI0N A(3.3) / 






TRAC 


E Y,A 


I 






X - 


3.24 


^ 






Y - 


X + 1 . 5 


I 






Z - 


Y ** 2 


) 






D0 4 


^8 1-1^3 


^ \ 






A(l,2 


)- Y/2 


J 




48 


Y - 


Y + 1 .0 


c 






X - 


0.0 


y 






K - 


2 


C 






TRAC 


E 62 ■ 


^ 




50 


X - 


X+1 .0 


s 






IF(X- 


3.0) 51,53,53 


C 




61 


K - 


•C*K 


P 






G0 


r0 so' 


C 




53 


IF(X. 


LE.Y) ' X-X+IOO.O' 


\ 




62 


X - 


X-1 .0 


(* 






Z . 


2 • X 


\ 






Y - 


0.0 


V 










3 


«, 


_ - _ 


- 


• 1 ( 1 "" 


r-. \ 



Y 
A 
Y 
A 
Y 
A 
Y 

(50) 
X 

( ) 

(51) 
K 

(50) 
X 

( ) 

(51) 
K 

(50) 
X 

( ) 

R 

X 

(62) 
X 
Y 



= 0.4740000000E 01 
(4) = 0.2370000000E 01 
= 0.5740000000E 01 

(5) = 0.2870000000E 01 
= 0.6740000000E 01 

(6) = 0.3370000000E01 
= 0.7740000000E 01 

= 0.1000000000E 01 
=-0.2000000000E 01 



0.2000000000E 01 
-O.IOOOOOOOOOE 01 

16 

0.3000000000E01 
O.OOOOOOOOOOE 00 



= 0.1030000000E 03 

= 0.1020000000E03 
= O.OOOOOOOOOOE 00 



Preparing the Source Statements 

Three special actions must be taken in order to 
prepare a program for CHAIN operation: 

1. The first card (or line) of all program seg- 
nts except the first program segment must be a 
cial card with a dollar sign in column 1, the 

digit 1 in column 2, and comments in columns 

3 through 72. 




2. All blank or labeled COMMON areas used for 
communication between segments of the chain 
must be declared with a COMMON statement at 
the beginning of each segment. The declaration 
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order and size of each area must be identical in 
each chain segment. 

3. When the program is ready to enter the next 
segment in the program chain, a CALL CHAIN 
statement is executed. This subroutine causes the 
next segment to be loaded into memory and auto- 
matically started. (Several CALL CHAIN state- 
ments may be present in one program segment for 
convenience.) 

Figure 7-2 is an example of a three segment pro- 
gram CHAIN. 



Compiling the Source Statements 

Each segment of the chain is compiled separately, 
resulting in three-object tapes. 



Preparing the Binary Chain Tape 

1. Mount the object tape for segment one and 
load it into memory using the standard loader and 
standard loading procedures. 

2. When the object tape is loaded, the loader 
types "MORE" (DDP-24/-124/-224) or "MR" 
(DDP-116/-516) if subroutines are required. Mount 
the library tape and press the START button to 
load the needed subroutines. 

3. When all needed subroutines are loaded, the 
loader types "DONE" (DDP-24/-124/-224) or 
"LC" (DDP-116/-516). 

4. Punch out segment one using the chain dump 
program. (See appropriate program documentation 
for details.) 

5. Repeat steps 1, 2, 3, and 4 for each additional 
segment in the chain program. One long binary 
tape representing the entire chain program will be 
generated. 

Running the Chain Program 

1. Mount the special binary tape. After the first 
segment has been loaded it will be executed auto- 
matically. 

2. When the first segment transfers to the CALL 
CHAIN subroutine, the subroutine causes the next 
segment to be read from the special binary tape 
and executed. This operation is automatic and no 
operator action is required. 



3. Step 2 is repeated automatically until the last 
segment is loaded and executed. 

Intercommunication Between Segments 

All intercommunication between segments is done 
through variables or arrays in blank or labeled 
COMMON. Because of the way FORTRAN aUo- 
cates storage, all blank and labeled COMMON 
areas that are defined at the beginning of each 
segment are allocated space at the beginning of 
that program area. 

Note that blank COMMON overwrites the loader 
as much as posssible since variables of array ele- 
ments in blank COMMON cannot be initialized 
with data. Because variables or array elements in 
labeled COMMON may be initialized, labeled 
COMMON cannot overwrite the loader on the 
24-bit computers. On the 16-bit computers it is 
possible to overwrite the loader with labeled COM- 
MON. This can be avoided by protecting the 
loader with a dummy blank COMMON block. 

Because the programmer is required to define the 
size and order of common variables or arrays 
identical in each chain segment, a reference to a 
common element in one segment refers to the same 
memory cells as a reference to the same common 
element in a different segment. Therefore, com- 
munication between segments of a chain program 
is effected. 

OPERATION DETAILS 

FORTRAN operating procedures are not given in 
this manual because the procedures are different 
for each DDP computer. TTie operating procedures 
are provided separately for each computer and 
include: 



Loading Procedure 

Sense Switch Settings 

Input Formats 

Output formats 

Listing Formats 

Preparing Source Statements 

Loading the Object Program 

Running the Object Program Data 

Error Code Definitions 

Estimating Memory Requirements 

Memory Maps 

Etc. 
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FIGURE 7—2. THREE SEGMENT CHAIN PROGRAM 
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APPENDIX A 
SAMPLE PROGRAMS 



EXAMPLE 1 

The equation for determining the current flowing 
through an alternating current circuit is: 

E 



\/^'+{'^''^-mc) 



The current is to be determined for a number of 
equally-spaced values of the capacitance (which lie 
between specified limits) for voltages of 1.0, 1.5, 2.0, 
2.5, and 3.0 volts. 



-H 
C 


t ' 


.1 !!| !S( S^ U| !5^ Bf. <S| !l^ m U^ K< Ilj liq— '-1 

— EXAMPLE 1 


J 


C 




' ' ' ' ' 
















( 




10 


READ'(3,5) '0HM, FREQ, henry ' 
















f 




1 1 


READ(3,5) FRDI.FRDFIN 
















I 




5 


F0RMAT(3E12.6) 
















/ 




12 


WRITE(1,7) ' 0HM;FREQ,hENRY' 
















\ 




7 


F0RMAT(1H 3E17.8) 
















) 




13 


V0LT = 1.0 
















c 




14 


WR|TE(1,7) V0LT 
















/ 




15 


FARAD " FRD1 
















c 




16 


AMP- VJ&'lT/SQRT(0HM**2 + ((«.: 


8832*FREQ 














y 




} 


< "HENRY)' -1/(6. '2832* FREQ* fXrAD)) 


••2) ' 














s 




17 


WRITE (1,7^ FARAD, AMP 
















(f 




18 


IF(FARAD - FRDFIN)19.21.21 
















>/ 




19 


FARAD - FARAD '+ O.oioO 000 01 
















~\^ 




20 


G0 ^0 16' 
















\ 




21 


IF(V0LT - 3.0) 22,10,10 
















Q 




22 


V0LT - V0LT + 0.5 
















^ 




23 


G0 T0 M 
















\ 






END 
















) 


L 


3 


END 0F J0B 

1 = — r-^ 1 1 1 
















\ 
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EXAMPLE 2 

Given values a, b, c, and d punched on cards fol- 
lowed by a set of values for the variable x punched 
one per card, evaluate the function defined by 

!ax' + bx + cifx<d 
ifx = d 

—ax* + bx — c if X > d 

for each value of x, and type x and f (x) . 



■ , 1 






•^ 


■^ 


c __ 


EXAMPLE 2 ' / 


c 








1 


10 


READ(3,5) A,B,C,D 






f 


11 


READ'(3,5) X 






I 


5 


F0ltMAT(6E12.6) 






• 


12 


IF(X-D) 13,15,17 






\ 


li 


F0FX' - a' * X*'*2 + 


B * X 


+ C 


) 


14 


G0 T0 18 






c 


15 


F0FX - 0.0 






y 


16 


G0 10 1b' 






C 


17 


F0FX - A • X**2 + 


B * X 


- C 


y 


IB 


WRITE(1,6) X, F^FX 






^ 


6 


F0RMAT(1M 2E17.8) 






t 


19 


G0 10 11 






^ 




END 






C 


»? 


END 0F J0B 






\ 






^ 



EXAMPLE 3 

Given: 

Xi,Yi,Zjfori = 1, 

Compute: / i = io 
PROD = j ^ 
V i = l 

Where: 
A I = X i' + Yi 
A i = X 1 + Yi 
Ai = 




if 
if 
if 



|X.t < |Y.| 
|Xi| = |Yi| 
|X,| >|Y| 



c 


'= -^ ^ f\ !lf U, "I 

EXAMPLE 3 J 


c 




\ 


3 


DIMENSI0hl X(10),Y(10),2(2'0) 




4 


F0RMAT {6F12.6)' 


i 


5 


read'{3,4) x, y; a ' 


__/ 


6 


SUMA '0.0 


^ 


7 


D0 12 |il,10 


1 — ' 


8 


IF{ABS(X{nj-ABS(Y{n)) '9,11. 12 


< 


9 


SUMA - SUMA +' X(l) ' 


1 — ^ 
/ 


10 


G0 T0 i2 ' 


( 


11 


SUMA - SUMA + Xfn + Yd) 


J 


12 


C0NTINUE 


< 


13 


SUMZ - o!o ' 




14 


D0 15 J-I,20 


' — "^ 


13 


SUMZ - 'SUM2 '+ 2(j') 




16 


PR0d' - SIJMA • SUME 




17 


WRITE(1.18) SUMA. SUMl, PR0D 




18 


F0RMAT(1h' SEiy.S) 




19 


G0 T0 5 ' 






END ... 


J 


$0 


END 0'F J0B 


\ 



EXAMPLE 4 

The following example of matrix multiplication il- 
lustrates DO nests and multiple subscripts. (A DO 
nest is a set of two or more DO statements, the 
range of one of which includes the ranges of the 
others.) 







- *" ■! 


c 


EXAMPLE 4 / 


c, 




■■-1 1 


( 




DIMEN$I0N A(2 


,5), B(5,2), 


C(2,'2)> 


2 


F0RMAT{5E14.5) 


' 


^ 


3 


READ(3,2) A,B 


' 


/ 


4 


D0 30 1-1,2 


' 


' \ 


5 


00 30 J-1,2 


., — , , 


' y 


6 


C(1,J) - 0.0 


' 


'^ 


10 


D0 20 K-1,5 


' 


' y 


20 


C(I,J)-C(I,J) + A(I. 


K)*B(K,J) 


{ 


30 


WRITE(1,50) l,J, 


C(I,J) 


' y 


50 


F0RMAT(1H' 215 


, £16. 7 


' c 


60 


G0 T0 3 


' 


(^ 




END 


' 


' ^ 


1.0 


END 0F J0B 




c 








^ L^ 
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EXAMPLE S 

Problem: 

Compute the following quantities: 



Pi = V sin'' (A , B 1 + C 1 ) + cos'' (A i B 1 - C 1 ) 
Qi = sin^ (A I + C I ) + cos^ (A i - C 1 ) 



EXAMPLE 6 

Problem: 

Find and print two product matrices. 





• 


f '•! •■! Ml 1*1 i«i >ti 1 


c 




EXAMPLE 5 / 


c 






I 






C)1MENSI0N A(10),B(10),C(10), 


i 




X P(IO),Q(IO) 


I 






TRIGF(X,Y)=SIN(X+Y)**2 + C0S(X-Y)*' 


2/ 






READ(3,4) A, B, C 


V 




4 


F0RMAT(3F12.6) 


3 






D0 ' 7 1-1,10 ' 


^ 






P{I)-SQRT(TRIGF(A(I)*B(1),C(I))) 


y 




7 


Q(I)-TR1GF(A(I),C(I)) 


( 






WRITE(1.9) (A(I).8(I).C(I).P(I). 


J 




X ' ' Q(l), 1-1,10) 


Cy 




9 


F0RMAT(1H 5F17.4) 


C 






ST0P' . , . . 


y^ 






END ■ ' ' ' 


C 


»o 1 


END 0'f J0B 


\ 








^ 



^ 


^ - 7" 














c 




EXAMPLE 6 








c 
























DIMENS10N X(10,I5), Y(15,I2), Z(10,I2), 




















D(10,15), E(15,12), F(10,12) 




















READ(3,4) ((X(1,J). J-1.3). 1-1,3), 


















1 


((Yd. J), J-1,3), 1-1.3) 


















4 


F0RMAT(6E12.6) 




















CALL MATMPY(X,3,3,Y,3,Z) 




















REAd'(3.4) '((D(l.j'),J-l,'3), 1-1,3), ' 
















- 


> 


< ' ' (('e(I,J),'J-1,3)', l-i;3) 


















CALL' MATMPY(D,'3,3,E.'3,F) 




















D0 13 J = 1,3 


















13 


WR1TE(4.15) (Z(I.J), 1-1.3) 




















D0 14 J-1.3 


















14 


WR1TE(4,15) (F(I,J), 1 = 1,3) 


















15 


F0RMAT(1 h' 6EI7.'6) 




















CALL EXIT 
















— 





ST0P 
















END 
















c 




















c 




SufcR0UTl'NE m!aTMPY' F0R'EXAMI'LE 6' 
















c 
























SUBROUTINE MATMPY^A.N.M.B.L.C) 
















— 1 
-^1 





DIMENSI0N A(i0,15), B(15)l2), 'C(10,r2) 
















D0 5 1 = 1, N 


















D0 5 J-I,L 




















Cd.J) = 0.0 




















D0 5 K-l.M 


















S 


C(I.J) = Cd.J) + A(I,K)'B(K.J) 




















RETURN 




















END 
















^ 
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APPENDIX B 

MODIFICATION OF INPUT/OUTPUT 
DEVICE ASSIGNMENTS 



The device numbers referred to by input or output 
statements have been tentatively set to the most 
common devices. Each statement generates a CALL 
to library subroutine F$Rn, F$Wn, or F$Cn, where 
n is the device number through 9. The de- 
vices referred to can be easily changed by writing 
different subroutines with the same name, and sub- 
stituting the new subroutine for the existing sub- 
routine on the library tape. For example, assume 
F$R2 is used to read paper tape and no paper tape 
reader is available, but six magnetic tape units are 
available. A magnetic tape subroutine (similar to 
F$R5) can be written, named F$R2, and put on 
the library tape in place of the original F$R2 sub- 
routine. All references to device 2 will now refer to 
magnetic tape 6 instead of the paper tape reader. 

If the unit number is referred to symbolically in- 
stead of as an integer constant, a different sub- 
routine caUing sequence is generated. 

CALL F$RN 
PZE n 

F$RN has a 10-place table which interprets n 
as one of the standard device assignments (0 



through 9) and transfers to the proper sub- 
routine. If desired, the F$RN subroutine can be 
modified to rearrange the device assignment table 
or to expand it for additional devices. The table 
can be expanded to any size less than 15000. There- 
fore, by expanding the table in F$RN, device 10 
could be magnetic tape 6, device 11 might be type- 
writer 2, etc. Only symbolic device numbers can 
exceed 9 in value. Constant device number call- 
ing sequences do not use the F$RN subroutine 
and do not, therefore, use the device assignment 
table. 

Finally, if a symbolic device number reference is 
made, but the number (such as n=0 or n = 13) is 
not in F$RN's device assignment table, a message 
is typed and followed by a halt. The operator can, 
at that time, set an acceptable device number into 
the accumulator (right-justified) and press the 
computer's START button. If the new number is 
acceptable, input or output is generated using the 
new device number. However, each time the un- 
acceptable device number is referred to by another 
READ, WRITE, or Control statement, the typed 
message followed by a halt occurs again. 
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APPENDIX C 
DYNAMIC STORAGE ALLOCATION 



A special version of the FORTRAN compiler and 
FORTRAN library is provided (only for a DDP- 
224 computer with 8K of memory, 3 index regis- 
ters, and hardware floating-point options) when 
dynamic allocation of storage is desirable. Pro- 
grams compiled by this version of the compiler, or 
subroutines on this version of the library are writ- 
ten in a format that causes all variables or tem- 
porary storages to be made into a COMMON area 
and thereby shared where possible with other sub- 
routine temporary storages. This procedure permits 
(1) shared variable or temporary storages among 
subroutines, (2) recursive calling of subroutines, 
and (3) real-time interrupt capability. 

SHARED STORAGE 

The variable storage required by a subroutine is 
not defined as part of the subroutine, but as rela- 
tive to an address in index register 2. Since this 
index register address is not assigned until the sub- 
routine is actually entered, the storage area needed 
by the subroutine is shared by all other subroutines 
that are not called on by this subroutine (sub- 
routines on the same level). Since the address 
allocation is done at run time and only as needed, 
dynamic allocation of variable storage is effected 
by all subroutines written in the dynamic format. 

RECURSIVE CALLS 

The F$DA subroutine that is called on by all sub- 
routines in the Dynamic Allocation Library, has 
the current value of index register 2 in a push- 



down list and assigns a variable storage area in- 
dependent of the subroutine itself. Therefore, a 
subroutine written in dynamic format can call it- 
self to any reasonable depth since each depth car- 
ries its own return address and variable (temporary 
storage) list. 

REAL TIME INTERRUPT CAPABILITY 

A subroutine written in this format may be in- 
terrupted by a real-time external interrupt signal. 
The processor for the interrupt can call upon the 
same subroutine interrupted, and, upon completion 
of the interrupt processing, can return to the in- 
terrupt point in the subroutine and continue. In 
fact, if the interrupt processor program is written 
in this format, it can be interrupted itself (after 
doing a few set-up instructions) by the same or a 
different interrupt. This interruption can continue 
to a depth limited only by the memory size. All the 
interrupts would be processed eventually on a 
last-in/first-out basis. 

DYNAMIC CONTROL SUBROUTINE 

The F$DA subroutine generates a list that consists 
of three control parameters plus the cells needed 
for variables by the calling subprogram. The three 
parameters stored in this list consist of the calling 
subprogram's return address, the number of cells 
needed for variable storage by the calling subpro- 
gram, and the previous contents of index register 
2. (Index register 2 is initially set to Lo.) The 
format of this table is shown in Figure C-1. 
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OBJECT PROGRAM 




NOP 0,2 




JUMP [PI EXIT] 


12 (P.) ► 


NOP [I2(P0)],2 




NOP [PI N],2 




XI (PI) 


12 (PI) 


X2(P1) 




JUMP [P2EXIT] 




NOP [12 (PI)], 2 




NOP [P2N],2 


12 (P2^ 


XI (P2) 




X2 (P2) 




X3 (P2) 




JUMP [P3EXIT] 




NOP [I2(P2)],2 




NOP [P3N],2 


12 (P 3) 


XI (P3) 




^~--T-^ 




Sef into memory by loader 



Entry made into table 
when main program (Pg) 
calls on subroutine P] . 



Entry mode into table when 
subroutine PI calls on sub- 
routine P2. 



Entry made into table when 
subroutine P2 calls on sub- 
routine P3. 



LEGEND 


EXIT 


Return addr. of calling 
subroutine . 


12 


Value of index no. 2 at 
entry to calling subroutine. 


N 


No. of variable cells 
needed by calling subroutine. 


XI, X2 


Cells used for variable 
storage by calling subroutine. 



FIGURE C-1. LIST CENERATED BY F$DA SUBROUTINE 
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APPENDIX D 

STATEMENT, LIBRARY FUNCTION. AND 
INPUT/OUTPUT SUMMARIES 



STATEMENT SUMMARY 

General Form 

of Statement Example 

Control Statements 



Page 



G0T0n 


G0 T0 314 


3-1 


ASSIGN K 10 1 


ASSIGN 320 T0I 


3-1 


G0T0I, (l<,,kj k„) 


G0 T0 1, (100, 310, 320, 409) 


3-1 


G0T0!k,,ky...,l.„), 1 


G0 T0 (100, 310, 320, 40»), I 


3-1 


IF(.)k,,kj,k3 


IF (1 * 46) 30, 30, 32 


3-2 


IF (.) S 


IF (LI. 0IL L2) G0 T0 20 


3-2 


00 n I ■ ntj^mj^m^ 


00 201-1,14,2 


>3 


D0 n I - niwinj 


0011 1-1,10 


3-3 


C0NnMUE 


C0NTINUE 


3-4 


PAUSE n 


PAUSES 


3-4 


PAUSE 


PAUSE 


3-4 


ST0Pn 


ST0P3 


>-S 


5T0P 


ST0P 


3-J 


ENO 


EM> 


3-5 


to 


tOENO0FJ0( 


1-2 


II 


>l C0NTINUE CHAIN 


l-Z 



Specification Statements 



INTEGRa,,a2'"'><'n 


INTEGER A, R, X(I0) 


4-1 


«EAlo,,Q2,...,Q^ 


REAL l,J,K (4,3) 


4-1 


QIOUM.E PKECI$I0N og.o, „ 


O0UM.E P«ECISI0N X, Y, 0(10) 


4-1 


C0MPl.EX«,,oj .„ 


C0MPUX TEST, C2 (3,7) 


4-1 


L0GICALa,,a2,...,<i„ 


L0GICAL LI,L2 t00L, L (4,4,4) 


4-1 


DIMENSI0Na, (1,),... ,a„(r„) 


DIMENSI0N LIST (400), TA»LE (10,10,4) 4-2 


EXTERNAL a,, 02 <■„ 


EXTERNAL TE$TI,TESn,TEST3 


4-2 


EQUIVAlENa (k, ), (kj) (k^) 


EQUIVALENa (X,D\,C3), 
(A(4,1),D2(3),d) 


4-3 


C:0MM0No,,a2,...,o„ 


C0MM0NA,»,C(1O) 


4-3 


C0MM0N /k, /a, /xj/oj. . . 
-/.„/.„ 


"!»Wl^(?^^<)!'sT- 


4-3 


C0MM0N//o,,Oy...,a„ 


C0MM0N //U, G, F, H(4, 3) 


4-3 


DATA k, /d, A hj/dj /, . . . k^d^/ 


DATA Al (4), X, I/O. 1 07, 1 . 0E5, 


4-4 


T«ACEk,,i^,...«„ 


TRACE Y, A, 1 


4-8 


THAan 


TRAa«2 


4-B 



Input/Output Statements 



READ (■>,() II' 


READ (3,20)A,>,C(4),ARRAY 


S-1 


READ (u) llrt 


READ(3)A,B,C(4),A»RAY 


S-I 


WRITE (u,0 IM 


WRITE (4,30) (A(l),»(l),l-1, 10) 


5-1 


WRITE (u) lilt 


WRI1E(7)A,t,C 


5-1 


REWIND u 


REWIND 7 


5-1 


BACKSPACE u 


tACKSPAa 7 


5-1 


ENOnUu 


ENO FILE 7 


5-1 


F0RMAT(f,,.2 ^) 


F0RMAT(IH,I3,2EIO.4) 


5-3 



General Form 
of Statement 

Subprogram 

CALL Noma (a,,02.---.a„) 

CALL NoiM 

FUNCTI0N Num. (a, ,«2 o„) 

SUIR0UTINE NoM (a,,ii2,..-a„) 

SUM0UTINE I 
RETURN 



Example 
Statements 



Page 



4-5 



6-6 
«-3 



CALL MATMPY (X,I,TA(U) 

CALL EXIT 

FUNCTI0N SUM (LIST, SIGMA) 

SURR0UTINE MATMPY (A, N, ARRAY) 6-5 

SU1R0UTINE EXIT ^5 

RETURN 6-4 



SUMMARY OP INPUT/OUTPUT 



Li»i Items 

variables 
subscripted 
variables 
array names 
implied do-loop 

CONTROL 

Device Assignments (u) 

= space 

1 = Typewriter 

2 = Paper tape 

3 = Cards 

4 = Line printer 

Format Descriptors 



A,B 

X(3), Y(I+3,J) 

X,Y 
((X(l).Y(l,J),l-1.8),J-l,4) 



5 <= Magnetic tape no. 1 

6 = Magnetic tape no. 2 

7 = Magnetic tape no. 3 

8 = Magnetic tape no. 4 

9 ss Magnetic tape no. 5 



nP Scale factor 

nX Skip n characters 

nFw.d REAL value in mixed number format 

nEw.d REAL value in scaled number format 

nGw.d REAL value in mixed or scaled format (by 

range) 

nDw.d DOUBLE PRECISION value in scaled format 

nlw INTEGER value in integer format 

nLw LOGICAL value as a T or F (TRUE or 

FALSE) 

nAw REAL value in aiplianumeric paclted format 

nH Hollerith data for headings or labels 

/I . . . n Record delimiters for multiple records 
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Line Spacing Control for Typewriter and Printer 

Blank One tine 

Two lines 

1 Skip to fist line of next page 
+ No advance (line printer only) 
Others One line (and output first character) 



SUMMARY OF LIBRABY FUNCTIONS 



FUNCTION ARGUMENT 
NAME MODE 



RESULT 
MODE 



FUNCTION 
DEFINITION 



SIN 



REAL 



REAL 



DSIN 



DOUBLE 



DOUBLE 



CSIN 



COMPLEX 



COMPLEX 



SINE (a) 
(radians) 



COS 



REAL 



REAL 



DCOS 



DOUBLE 



DOUBLE 



CCOS 



COMPLEX 



COMPLEX 



COSINE (a) 
(radians) 



ATAN 



REAL 



REAL 



DATAN DOUBLE 



DOUBLE 



ARCTANGENT 
(a) 



ATAN2 REAL (2) 



REAL 



DATAN2 DOUBLE (2) DOUBLE 



TANK REAL 



CLOG 



COMPLEX 



ALOGIO REAL 



DLOGIO DOUBLE 



REAL 



ARCTANGENT 
(al/a2) 

HYPERBOLIC 
TANGENT (a) 



SQRT 


REAL 


REAL 


DSQRT 


DOUBLE 


DOUBLE 


CSQRT 


COMPLEX 


COMPLEX 


EXP 


REAL 


REAL 


DEXP 


DOUBLE 


DOUBLE 


CEXP 


COMPLEX 


COMPLEX 


ALOG 


REAL 


REAL 


DLOG 


DOUBLE 


DOUBLE 



Va 



.(«) 



COMPLEX 



REAL 



DOUBLE 



LOG^ (a) 



LOG,o(a) 



FUNCTION 
NAME 



ABS 



lABS 



DABS 



CABS 



MOD 



AINT 



INT 



MAXl 



MINI 



FLOAT 



IFIX 



SNGL 



REAL 



DBLE 



ARGUMENT 
MODE 



RESULT 
MODE 



FUNCTION 
DEFINITION 



REAL 



REAL 



INTEGER 



INTEGER 



DOUBLE 



DOUBLE 



COMPLEX 



REAL 



/a2+ a? 



r i 



AMOD REAL (2) 



REAL 



INTEGER (2) INTEGER Oi (mod aj) 



DMOD DOUBLE (2) 



DOUBLE 



REAL 



REAL 



REAL 



INTEGER 



IDINT DOUBLE 



INTEGER 



Truncate to 
an integer 



AMAXO INTEGER (>1) REAL 
AMAXl REALQl) REAL 

MAXO INTEGER (>1) INTEGER 



REAL (>1) 



INTEGER 



DMAXl DOUBLE (>1) DOUBLE 
AMINO INTEGER (>1) REAL 



AMINl REAL (>1) 



REAL 



MINO INTEGER (>1) INTEGER 



REALOl) 



INTEGER 



DMIN DOUBLE (>1) DOUBLE 



INTEGER 



REAL 



REAL 



INTEGER 



DOUBLE 



REAL 



COMPLEX 



REAL 



AIMAG COMPLEX 



REAL 



Choose 
largest 
argument 



Choose 

smallest 

argument 



Convert 

argument 

mode 



REAL 



DOUBLE 



CMPLX 


REAL (2) 


COMPLEX 




SIGN 


REAL (2) 


REAL 




ISIGN 


INTEGER (2) 


INTEGER 


Transfer sign 


DSGN 


DOUBLE (2) 


DOUBLE 




DIM 


REAL (2) 


REAL 


Positive 


IDIM 


INTEGER (2) 


INTEGER 


difference 



CONJG COMPLEX 



COMPLEX 



Complex 
conjugate 
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APPENDIX E 
COMPILER ERROR MESSAGES 

DDP-116/-516 



ERROR 
MESSAGE 



CONDITION 



ERROR 
MESSAGE 



CONDITION 



AE Arithmetic statement function has over 10 

arguments 
AG Subroutine or array name not in an 

argument 
AR Item not an array name 

BD Code generated within a blocl^ data 

subprogram 
BL Blocl( data not first statement 

CE Constant's exponent exceeds 8 bits (over 

255) 
CG Compiler or computer error caused a jump 

to 00000 
CH Improper terminating character (punctu- 

ation) 
CM Comma outside parenthesis, not In a DO 

statement 
CN Improper constant (data Initialization) 

CR Illegal common reference 

DA Illegal use of a dummy argument 

OD Dummy Item appears in an equivalence 

or data list 
DM Data and data name mode do not agree 

DT Improper DO termination 

EC Equivalence group not followed by comma 

or CR (carriage return) 
EQ Expression to left of equals, or multiple 

equals 
EX Specification statement appears after cleanup 

FA Function has no arguments 

FD Function name not defined by an arith- 

metic statement 
FR Format statement error 

F3 Function/subroutine not the first statement 

HF Hollerith character count equals zero 

HS Hollerith data string extends past end of 

statement 

IC Impossible common equivalencing 

ID Unrecognizable statement 



IE Impossible equivalence grouping 

IF Illegal IF statement type 

IN Integer required at this position 

IT Item not an integer 

MM Mode mixing error 

MO Data pool overflow 

MS Multiply defined statement number 

NC Constant must be present 

ND Wrong number of dimensions 

NF No reference to format statement 

NR Item not a relative variable 

NS Subprogram name not allowed 

NT Logical NOT, not an unary operator 

NU Name already being used 

NZ Non-zero string test failed 

OP More than one operator in a row 

PA Operation must be within parenthesis 

PH No path leading to this statement 

PR Parenthesis missing in a DO statement. 

PW "Preceded by operator other than another* 

RL More than 1 relational operator in a rela- 
tional example 

RN Reference to a specification statement's 

number 

RT Return not allowed in main program 

SC Statement number on a continuation card 

SP Statement name misspelled 

ST Illegal statement number format 

SU Subscript Incrementer not a constant 

TF "Type" not followed by "Function" or list 

TO Assign statement has word TO missing 

UO Multiple + or — signs, not as unary 

operators 

US Undefined statement number 

VD Symbolic subscript no dummy in dummy 

array or symbolic subscript appears on 

a non-dummy array 

VN Variable name required at this position 
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DDP-24/-124/-224 



ERROR 
MESSAGE 



CONDITION 



ERROR 
MESSAGE 



CONDITION 



ADJD Illegal adjustable dimension 

ASOV Assignment table overflow 

ASTO Word TO incorrect in assign statement 

BLKD Instruction or data generated by block- 

date subprogram 

CICD Cannot initialize COMMON data 

COMM Illegal common reference 

CONS Illegal constant 

CRET Carriage return within Hollerith string 

DDST Doubly defined statement number 

DPFL Data pool full 

DUMM Illegal dummy appearance 

EQCN Illegal equivalence construction 

EQIV Impossible equivalence 

EQMS Equal (=) sign missing 

ERDO Illegal statement looks like a DO 

ERR. Decimal point missing 

ERIN RETURN not in subprogram 

EXS= Not the first equal sign or illegal (=:) 

sign 

FNUM Numeric value in format statement mis- 

sing, zero or negative 

FOPN Parenthesis nest in format statement 

greater than two 

FRST Function or subroutine that is not first 

statement 

FUNV Either subroutine name used as variable 

or function not used 

FWAR Function without arguments 

IFER Illegal IF statement 

ILBD Illegal block-data usage 

ILEG Illegal FORTRAN statement 

ILSN Illegal statement number 

INDT Insufficient data for names given 

INTG Noninteger subscript variable 



lODL Illegal implied DO loop within I/O state- 

ment 

I USE Incorrect iem usage 

LOOP Improper leading operator 

MODE Mode mixing error 

MULT Multiply defined statement 

NARR Item is not an array 

NCBD Non-common variable in block-data 

NCBS Negative COMMON base 

NEST OOP loop error improper nesting or termi- 
nation 

NINT Mode is wrong 

No ( Subroutine or array name not followed by 
an open parenthesis or comma missing 

NPTH Format statement without number 

OPER Unacceptable operator or character 

OPOS Operator at illegal position 

PATH Statement without path or unexecutable 
statement 

RLOP Two relational operators in a row 

SBSC Incorrect number of subscripts 

SPEC Specification statement within program 

SPEL Misspelled FORTRAN statement 

STNO Error in statement number 

TMDT Too much data for names given 

TYPE Illegal name in type statement 

UNRF Unreferenced Item 

V/SP Variable that is a subprogram 

XARG More than ten arithmetic statement func- 
tions 

) ( Illegal parenthesis in a common statement 

) ERR Right parenthesis error 

( ERR Left parenthesis error 

/ ERR Slash error 

, ERR Comma error 

( CR ) Carriage return error 
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APPENDIX F 
PROPOSED USASI FORTRAN IV 



The following Proposed American Standard 
of the FORTRAN language was developed by 
X3.4.3-FORTRAN Group under the American 
Standards Association Sectional Committee X3, 
Computers and Information Processing. The 
committee was established under the sponsor- 
ship of the Business Equipment Manufacturers 
Association. Here is presented the most recent 
issue of the proposed standard available at this 
printing. Any further issues are not expected to 
alter the technical content. 

Inquiries regarding copies of the Proposed 
Standard should be addressed to the X3 Secre- 
tary, BEMA, 235 E. 42nd Street, New York, 
N.Y. 
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PROPOSED USASI FORTRAN IV 



1. INTRODUCTION 

1.1 PuHPOSE. This standard establishes the form for 
and the interpretation of programs expressed in the Fortban 
language for the purpose of promoting a high degree of 
interchangeability of such programs for use on a variety of 
automatic data processing systems. A processor shall con- 
form to this standard provided it accepts, and interprets 
as specified, at least those forms and relationships described 
herein. 

Insofar as the interpretation of the form and relation- 
ships described are not affected, any statement of require- 
ment could be replaced by a statement expressing that the 
standard does not provide an interpretation unless the 
requirement is met. Further, any statement of prohibition 
could be replaced by a statement expressing that the 
standard does not provide an interpretation when the pro- 
hibition is violated. 

1.2 Scope. This standard establishes: 

(1) The form of a program written in the Fortran 
language. 

(2) The form of writing input data to be processed 
by such a program operating on automatic data processing 
systems. 

(3) Rules for interpreting the meaning of such a 
program. 

(4) The form of the output data resulting from the 
use of such a program on automatic data processing systems, 
provided that the rules of interpretation establish an inter- 
pretation. 

This standard does not prescribe: 

(1) The mechanism by which programs are trans- 
formed for use on a data processing system (the combination 
of this mechanism and data processing system is called a 
processor) . 

(2) The method of transcription of such programs or 
their input or output data to or from a data processing 
medium. 

(3) The manual operations required for set-up and 
control of the use of such programs on data processing 
equipment. 

(4) The results when the rules for interpretation fail 
to establish an interpretation of such a program. 

(5) The size or complexity of a program that will 
exceed the capacity of any specific data processing system 
or the capability of a particular processor. 

(6) The range or precision of numerical quantities. 

2. BASIC TERMINOLOGY 

This section introduces some basic terminology and 
some concepts. A rigorous treatment of these is given in 
later eections. Certain assumptions concerning the meaning 
of grammatical forms and particular words are presented. 

A program that can be used as a self-contained com- 
puting procedure is called an executable program (9.1.6). 

An executable program consists of precisely one main 
'program and possibly one or more subprograms (9.1.6). 



A main program is a set of statements and comments 
not containing a FUNCTION, SUBROUTINE, or BLOCK 
DATA statement (9.1.5). 

A subprogram is similar to a main program but is 
headed by a BLOCK DATA, FUNCTION, or SUB- 
ROUTINE statement. A subprogram headed by a BLOCK 
DATA statement is called a specification subprogram. A 
subprogram headed by a FUNCTION or SUBROUTINE 
statement is called a procedure subprogram (9.1.3, 9.1.4). 

The term program unit will refer to either a main pro- 
gram or subprogram (9.1.7). 

Any program unit except a specification subprogram 
may reference an external procedure (Section 9) . 

An external procedure that is defined by Fortran 
statements is called a procedure subprogram. External pro- 
cedures also may be defined by other means. An external 
procedure may be an external function or an external 
subroutine. An external function defined by Fortran 
statements headed by a FUNCTION statement is called 
a function subprogram. An external subroutine defined by 
Fortran statements headed by a SUBROUTINE state- 
ment is called a subroutine subprogram (Sections 8 and 9). 

Any program unit consists of statements and comments. 
A statement is divided into physical sections called lines, 
the first of which is called an initial line and the rest of which 
are called continuation lines (3.2). 

There is a type of line called a comment that is not a 
statement and merely provides information for documentary 
purposes (3.2). 

The statements in Fortran fall into two broad classes- 
executable and nonexecutable. The executable statements 
specify the action of the program while the nonexecutable 
statements describe the use of the program, the character- 
istics of the operands, editing information, statement func- 
tions, or data arrangement (7.1, 7.2). 

The syntactic elements of a statement are names and 
operators. Names are used to reference objects such as data 
or procedures. Operators, including the imperative verbs, 
specify action upon named objects. 

One class of name, the array name, deserves special 
mention. An array name must have the size of the identi- 
fied array defined in an array declarator (7.2.1.1). An array 
name qualified only by a subscript is used to identify a 
particular element of the array (5.1.3). 

Data names and the arithmetic (or logical) operations 
may be connected into expressions. Evaluation of such an 
expression develops a value. This value is derived by per- 
forming the specified operations on the named data. 

The identifiers used in Fortran are names and num- 
bers. Data are named. Procedures are named. Statements 
are labeled with numbers. Input/output units are numbered 
(Sections 3, 6, 7). 
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At various places in this document there are statements 
with associated lists of entries. In all cases the list is assumed 
to contain at lease one entry unless an explicit exception 
is stated. As an example, in the statement 

SUBROUTINE s (a,, 02, ■ ■ a„) 
it is assumed that at least one symbolic name is included 
in the list within parentheses. A list is a set of identifiable 
elements each of which is separated from its successor by 
a comma. Further, in a sentence a plural form of a noun 
will be assumed to also specify the singular form of that 
noun as a special case when the context of the sentence does 
not prohibit this interpretation. 

The term reference is used as a verb with special meaning 
as defined in Section 5. 

3. PROGRAM FORM 

Every program unit is constructed of characters grouped 
into lines and statements. 

3.1 The Fortran Character Set. A program unit 
is written using the following characters: A, B, C, D, E, 
F, G, H, I, J, K, L, M, N, O, P, Q, R, S, T, U, V, W, X, 
Y, Z, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, and: 

Character Name of Character 

Blank 
= Equals 

+ Plus 

— Minus 

* Asterisk 

/ Slash 

( Left Parenthesis 

) Right Parenthesis 

, Comma 

Decimal Point 
.$ Currency Symbol 

The order in which the characters are listed does not 
imply a collating sequence. 

3.1.1 Digits. A digit is one of the ten characters: 
0, 1, 2, 3, 4, 5, 6, 7, 8, 9. Unless specified otherwise, a string 
of digits will be interpreted in the decimal base number 
system when a number system base interpretation is ap- 
propriate. 

An octal digit is one of the eight characters: 0, 1, 2, 3, 

4, 5, 6, 7. These are only used in the STOP r7. 1.2. 7.1) and 
PAUSE (7.1.2.7.2) statements. 

3.1.2 Letters. A letter is one of the twenty-six char- 
acters: A, B, C, D, E, F, G, H, I, J, K, L, M, N, O, P, 
Q, R, S, T, U, V, W, X, Y, Z. 

3.1.3 Alphanumeric Characters. An alphanumeric 
character is a letter or a digit. 

3.1.4 Special Characters. A special character is one 
of the eleven characters blank, equals, plus, minus, asterisk, 
slash, left parenthesis, right parenthesis, comma, decimal 
point, and currency symbol. 

3.1.4.1 Blank Character. With the exception of the 
uses specified (3.2.2, 3.2.3, 3.2.4, 4.2.6, 5.1.1.6, 7.2.3.6, and 
7.2.3.8), a blank character has no meaning and may be 
used freely to improve the appearance of the program subject 
to the restriction on continuation lines in 3.3. 

3.2 Lines. A line is a string of 72 characters. All 
characters must be from the Fortran character set except 
as described in 5.1.1.6 and 7.2.3.8. 

The character positions in a line are called columns 
and are consecutively numbered 1, 2, 3, ■ ■ , 72. The number 
indicates the sequential position of a character in the line 
starting at the left and proceeding to the right. 



3.2.1 Comment Line. The letter C in column 1 of a 
line designates that line as a comment line. A comment 
line must be immediately followed by an initial line, another 
comment line, or an end line. 

A comment line does not affect the program in any 
way and is available as a convenience for the programmer. 

3.2.2 End Line. An end line is a line with the char- 
acter blank in columns 1 through 6, the characters E, N, 
and D, once each and in that order, in columns 7 through 
72, preceded by, interspersed with, or followed by the 
character blank. The end line indicates to the processor, 
the end of the written description of a program unit (9.1.7). 
Every program unit must physically terminate with an 
end line. 

3.2.3 Initial Line. An initial line is a line that is 
neither a comment line nor an end line and that contains 
the digit or the character blank in column 6. Columns 1 
through 5 contain the statement label or each contains the 
character blank. 

3.2.4 Continuation Line. A continuation line is a line 
that contains any character other than the digit or the 
character blank in column 6, and does not contain the 
character C in column 1. 

A continuation line may only follow an initial line or 
another continuation line. 

3.3 Statements. A statement consists of an initial 
line optionally followed by up to nineteen ordered con- 
tinuation lines. The statement is written in columns 7 
through 72 of the lines. The order of the characters in the 
.statement is columns 7 through 72 of the initial line followed, 
as applicable, by columns 7 through 72 of the first continu- 
ation line, columns 7 through 72 of the next continuation 
line, etc. 

3.4 Statement Label. Optionally, a statement may 
be labeled so that it may be referred to in other statements. 
A statement label consists of from one to five digits. The 
value of the integer represented is not significant but must 
be greater than zero. Tlie statement label may be placed 
anywhere in columns 1 through 5 of the initial line of the 
statement. The same statement label may not be given to 
more than one statement in a program unit. Leading zeros 
are not significant in differentiating statement labels. 

3.5 Symbolic Names. A symbolic name consists of 
from one to six alphanumeric characters, the first of which 
must be alphabetic. See 10.1 through 10.1.10 for a discus- 
sion of classification of symbolic names and restrictions on 
their use. 

3.6 Ordering OF Characters. An ordering of char- 
acters is assumed within a program unit. Thus, any meaning- 
ful collection of characters that constitutes names, lines, 
and statements exists as a totally ordered set. This ordering 
is imposed by the character position rule of 3.2 (which 
orders characters within lines) and the order in which lines 
are presented for processing. 

4. DATA TYPES 

Six different types of data are defined. These are integer, 
real, double precision, complex, logical, and Hollerith. Each 
type has a different mathematical significance and may have 
different internal representation. Thus the data type has a 
significance in the interpretation of the associated opera- 
tions with which a datum is involved. The data type of a 
function defines the type of the datum it supplies to the 
expression in which it appears. 
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4.1 Data Type Association. The name employed 
to identify a datum or function carries the data type asso- 
ciation. The form of the string representing a constant 
defines both the value and the data type. 

A symbolic name representing a function, variable, or 
array must have only a single data type association for 
each program unit. Once associated with a particular data 
type, a specific name implies that type for any differing 
usage of that symbolic name that requires a data type 
association throughout the program unit in which it is 
defined. 

Data type may be established for a symbolic name by 
declaration in a type-statement (7.2.1.6) for the integer, 
real, double precision, complex, and logical types. This 
specific declaration overrides the implied association avail- 
able for integer and real (5.3) . 

There exists no mechanism to associate a symbolic 
name with the Hollerith data type. Thus data of this type, 
other than constants, are identified under the guise of a 
name of one of the other types. 

4.2 Data Type Propertiks. The mathematical and 
the representation properties for each of the data types are 
defined in the following sections. For real, double precision, 
and integer data, the value zero is considered neither positive 
nor negative. 

4.2.1 Intpger Type. An integer datum is always an 
exact representation of an integer value. It may assume 
positive, negative, and zero values. It may only assume 
integral values. 

4.2.2 Real Type. A real datum is a processor ap- 
proximation to the value of a real number. It may assume 
positive, negative, and zero values. 

4.2.3 Double Precision Type. A double precision 
datum is a processor approximation to the value of a real 
number. It may assume positive, negative, and zero values. 
The degree of approxirhation, though undefined, must be 
greater than that of type real. 

4.2.4 Complex Type. A complex datum is a processor 
approximation to the value of a complex number. The 
representation of the approximation is in the form of an 
ordered pair of real data. The first of the pair represents the 
real part and the second, the imaginary part. Each part has, 
accordingly, the same degree of approximation as for a 
real datum. 

4.2.5 Logical Type. A logical datum may assume 
only the truth values of true or false. 

4.2.6 Hollerith Type. A Hollerith datum is a string 
of characters. This string may consist of any characters 
capable of representation in the processor. The blank char- 
acter is a valid and significant character in a Hollerith 
datum. 

5. DATA AND PROCEDURE IDENTIFICATION 

Names are employed to reference or otherwise identify 
data and procedures. 

The term reference is used to indicate an identification 
of a datum implying that the current value of the datum 
will be made available during the execution of the statement 
containing the reference. If the datum is identified but not 
necessarily made available, the datum is said to be named. 
One case of special interest in which the datum is named is 
that of assigning a value to a datum, thus defining or re- 
defining the datum. 

The term, reference, is used to indicate an identification 
of a procedure implying that the actions specified by the 
procedure will be made available. 



A complete and rigorous discussion of reference and 
definition, including redefinition, is contained in Section 10. 

5.1 Data and Procedure Names. A data name 
identifies a constant, a variable, an array or array element, 
or a block (7.2.1.3). A procedure name identifies a function 
or a subroutine. 

5.1.1 Constants. A constant is a datum that is always 
defined during execution and may not be Redefined. Rules 
for writing constants are given for each data type. 

An integer, real, or double precision constant is said to 
be signed when it is wrritten immediately following a plus 
or minus. Also, for these types, an optionally signed con- 
stant is either a constant or a signed constant. 

5.1.1.1 Integer constant. An integer constant is 
written as a nonempty string of digits. The constant is the 
digit string interpreted as a decimal numeral. 

6.1.1.2 Real Constant. A basic real constant is written 
as an integer part, a decimal point, and a decimal fraction 
part in that order. Both the integer part and the decimal 
part are strings of digits; either one of these strings may be 
empty but not both. The constant is an approximation to 
the digit string interpreted as a decimal numeral. 

A decimal exponent is written as the letter, E, followed 
by an optionally signed integer constant. A decimal ex- 
ponent is a multiplier (applied to the constant written 
immediately preceding it) that is an approximation to the 
exponential form ten raised to the power indicated by the 
integer written following the E. 

A real constant is indicated by writing a basic real 
constant, a basic real constant followed by a decimal ex- 
ponent, or an integer constant followed by a decimal 
exponent. 

5.1.1.3 Double Precision Constant. A double precision 
exponent is written and interpreted identically to a decimal 
exponent except that the letter, D, is used instead of the 
letter, E. 

A double precision constant is indicated by writing a 
basic real constant followed by a double precision exponent 
or an integer constant followed by a double precision ex- 
ponent. 

5.1.1.4 Complex Constant. A complex constant is 
written as an ordered pair of optionally signed real con- 
stants, separated by a comma, and enclosed within paren- 
theses. The datum is an approximation to the complex 
number represented by the pair. 

5.1.1.5 Logical Constant. The logical constants, true 
and false, are written .TRUE, and .FALSE, respectively. 

5.1.1.6 Hollerith Constant. A Hollerith constant is 
written as an integer constant (whose value n is greater 
than zero) followed by the letter H, followed by exactly n 
characters which comprise the Hollerith datum proper. 
Any n characters capable of representation by the processor 
may follow the H. The character blank is significant in the 
Hollerith datum string. This type of constant may be 
written only in the argument list of a CALI.. statement and 
in the data initialization statement. 

5.1.2 Variable. A variable is a datum that is identi- 
fied by a symbolic name (3.5). Such a datum may be 
referenced and defined. 

5.1.3 Array. An array is an ordered set of data of 
one, two, or three dimensions. An array is identified by a 
symbolic name. Identification of the entire ordered set is 
achieved via use of the array name. 

5.1.3.1 Array Element. An array element ia one of 
the members of the set of data of an array. An array element 
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is identified by immediately following the array name with 
a qualifier, called a subscript, which points to the particular 
element of the array. 

An array element may be referenced and defined. 

5.1.3.2 Subscript. A subscript is written as a paren- 
thesized list of subscrii)t expressions. Each subscript ex- 
pression is sepiu-ated by a comma from its successor, if 
there is a successor. The number of subscript expressions 
must correspond to the declareii dimensionality (7.2.1.1), 
except in an lOQUI VALENCE statement (7.2.1.4). Follow- 
ing evaluation of aU of the sub-script expressions, the array 
element successor function (7.2.1.1) determines the identi- 
fied array element. 

5.1.3.3 Subscript Expressions. A subscript expression 
is written as one of the following constructs: 

c*v + k 
c*v — k 
c*v 
u -^ k 
V - k 

V 

k 

where c and k are integer constants and v is an integer 
variable reference. See Section 6 for a discu.ssion of evalua- 
tion of expressions and 10.2.8 and 10. .'1 for requirements 
that apply to the use of a variable in a subscript. 

5.1.4 Procedures. A procedure (Section 8) is identi- 
fied by a symbolic name. A procedure is a statement 
function, an intrinsic function, a basic external function, 
an external function, or an external subroutine. Statement 
functions, intrinsic functions, basic external functions, and 
external functions arc referred to as functions or function 
procedures; external subroutines as subroutines or sub- 
routine procedures, 

A function supplies a result to be used at the point of 
reference; a subroutine does not. Functions are referenced 
in a manner different from subroutines. 

5.2 Function Reference. A function reference con- 
sists of the function name followed by an actual argument 
list enclosed in parenthe-scs. If the list contains more tlian 
one argument, tlie arguments are separated by commas. 
Tlie allowable forms of function arguments are given in 
Section 8. 

See 10.2.1 for a discussion of requirements that apply 
to function references. 

5.3 Type Rules for Data and Procedure Identi- 
fiers. The type of a constant is implicit in its name. 

There is no type associated with a symbolic name that 
identifies a subroutine or a block. 

A symbolic name that identifies a variable, an array, 
or a statement function may have its type specified in a 
type-statement. In the absence of an explicit declaration, 
the type is implied by the first character of the name: 1, 
J, K, L, M, and N imply type integer; any other letter 
implies type real. 

A symbolic name that identifies an intrinsic function 
or a basic external function when it is used to identify this 
designated procedure, has a type associated with it as 
specified in Tables 3 and 4. 

In the program unit in which an external function is 

referenced, its type definition is defined in the same manner 

ns for a variable and an array. For a function subprogram, 

type is specified either implicitly by its name or explicitly 

n the FUNCTION statement. 

■ he same type is associated with an array element as 
is associated with the array name. 



5.4 Dummy Arguments. A dummy argument of an 
external procedure identifies a variable, array, subroutine, 
or external function. 

When the use of an external function name is specified, 
the use of a dummy argument is permissible if an external 
function name will be associated with that dummy argu- 
ment. (Section 8.) 

When the use of an external subroutine name is speci- 
fied, the use of a dummy argument ifi permissible if an 
external subroutine name will be associated with that 
dummy argument. 

When the use of a variable or array element reference 
is specified, the use of a dummy argument is permissible if 
a value of the same type will be made available through 
argument association. 

Unless specified otherwise, when the use of a variable, 
array, or array element name is specified, the use of a 
dummy argument is permissible provided that a proper 
association with an actual argument is made. 

The process of argument association is discussed in 
Sections 8 and 10. 

6. EXPRESSIONS 

This section gives the formation and evaluation rules 
for arithmetic, relational, and logical expressi<ms. A rela- 
tional expression appears only within the context of logical 
expressions. An expression is formed from elements and 
operators. See 10.3 for a discussion of requirements that 
apply to the u.se of certain entities in expressions. 

6.1 Arithmetic Expressions. An arithmetic expres- 
sion is formed %vith arithmetic operators and arithmetic 
elements. Both the expression and its constituent elements 
identify values of one of the types integer, real, double 
precision, or complex. The arithmetic operators are: 
Operator Representing 

-'.- Addition, positive value (zero + element) 

— Subtraction, negative value (zero — element) 

* Multiplication 

Division 
** Exponentiation 

The arithmetic elements are primary, factor, term, 
signed term, simple arithmetic expression, and arithmetic 
expression. 

A primary is an arithmetic expression enclosed in 
parentheses, a constant, a variable reference, an array 
element reference, or a function reference. 

A factor is a primary or a construct of the form 

primary**primary 

A term is a factor or a construct of one of the forms 

term /factor 

or 
term*term 
A signed term is a term immediately preceded by 
+ or — . 

A simple arithmetic expression is a term or two simple 
arithmetic expressions separated by a 4- or — . 

An arithmetic expression is a sinnple arithmetic expres- 
sion or a signed term or either of the preceding forms 
immediately followed by a -|- or — immediately followed 
by a simple arithmetic expression. 

A primary of any type may be exponentiated by an 
integer primary, and the resultant factor is of the same, 
type as that of the element being exponentiated. A real or 
double precision primary may be exponentiated by a real 
or double precision primary, and the resultant factor is of 
type real if both primaries are of type real and otherwise 
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of type double precision. These are the only cases for which 
use of the exponentiation operator is defined. 

By use of the arithmetic operators other than ex- 
ponentiation, any admissible element may be combined 
with another admissible element of the same type, and the 
resultant element is of the same type. P'urther, an admissible 
real element may be combined with an admissible double 
precision or complex element; the resultant element is of 
type double ijrecision or complex, respectively. 

6.2 liKi.AiTONAL ICxruKKSioNK. A relational expres- 
sion consists of two aritlimctic expressions separated by a 
relational operator and will have the value true or false as 
the relation is tru(? or false, respectively. One arithmetic 
expression may be of typo real or (ioul)le precision and the 
other of type real or double t)recision, or both arithmetic 
expressions may be of type intcKcr. if a real expression and 
a double precision expression appear in a relational expres- 
sion, the cfrect is the same as a similar relational expression. 
This similar expression contains a double precision zero as 
the right hand arithmetic expression and the difference of 
the two orif?inal expressions (in their orif^inal order) as the 
left. The relational operator is unchanged. Thi; relational 
operators are: 

Operator Rcprcucnlinn 

.LT. T.ess than 

.I,K. Less than or equal lo 

.KCJ. I''.<iual to 

.NK. Not (!qual to 

XVV. (ireater than 

.(",10. (Jrealer than or ecpial to 

6.3 Lo(;u:ai. I<;xi'HKS.4K)N.s. A logical expression is 
formed with logical operators and logical elements and has 
the value true or false. The logi<al upc'rators are; 

Operator Represent iiifi 

.OH. Logical disjimctiim 

.AND. Logical conjunction 

.NOT. Logiial negation 

The logical elements are logical primary, logical factor, 
logical term, and logical expression. 

A logical primary is a logical expression enclosed in 
parentheses, a relational exjire-'ision, a logical constant, a 
logical variable reference, a logical array element reference, 
or a logical function reference. 

A logical factor is a logical primary or .NOT. followed 
by a logical primary. 

A logical term is a logical factor or a construct of the 
form: 

logical term .AND. logical term 
A logical expression is a logical term or a construct of 
the form: 

logical expression .OR. logical expression 

6.4 Evaluation of Expressions. A part of an ex- 
pression need be evaluated only if such action is necessary 
to establish the value of the expression. The rules for 
formation of expre.ssions imply the binding strength of 
operators. It should be noted that the range of the sub- 
traction operator is the term that immediately succeeds it. 
The evaluation may proceed according to any valid forma- 
tion sequence (except as modified in the following para- 
graph) . 

When two elements are combined by an operator, the 
order of evaluation of the elements is optional. If mathe- 
matical use of operators is associative, commutative, or 
both, full use of these facts may be made to revise orders 
of combination, provided only that integrity of parenthe- 
sized expressions is not violated. The results of different 
permissible orders of combination even though math- 
ematically identical need not be computationally identical. 



The value of an integer factor or term is the nearest integer 
whose magnitude does not exceed the magnitude of the 
mathematical value represented by that factor or term. The 
associative and commutative laws do not apply in the 
evaluation of integer terms containing division, hence the 
evaluation of such terms must effectively proceed from 
left to right. 

Any use of an array element name requires the evalua- 
tion of its subscript. The evaluation of functions appearing 
in an expression may not validly alter the value of any 
other element within the expressions, assignment statement, 
or (;ALL statement in which the function reference appears. 
The type of the expression in which a function reference or 
subscrii)t appears does not affect, nor is it affected by, the 
evaluation of the actual arguments or subscript. 

No factor may be evaluated that requires a negative 
valued primary to be raised to a real or double precision 
exponent. No factor may be evaluated that requires raising 
a zero valued primary to a zero valued exponent. 

No element may be evaluated whose value is not 
mathematically defined. 

7. STATEIVIENTS 

A statement may be classified as executable or non- 
executable. Executable statements specify actions; non- 
executable statements de, cribe the characteristics and 
arrangement of data, editing information, statement 
functions, and classification of program units. 

7.1 ExKCtrpAHi.K Statkmknts. There are three types 
of executable statements: 

1 1 1 Assignment statements. 

(2) C'ontrol statements^ 

(3) Input output statements. 

7.1.1 Assiflnmenl Statements. There are three types 
of a.ssignment statements: 

(1) Arithmetic assignment statement. 
12) Logical assignment statement. 
(3) GO TO as.signment statement. 

7.1.1.1 Arithmetic Ansif^nmenl Statement. An arith- 
metic assignment statement is of the form: 

y = c 
where v is a variable name or array element name of type 
other than logical and e is an arithmetic expression. Execu- 
tion of this statement causes the evaluation of the expression 
e and the altering of V according to Table 1. 

7.1.1.2 Logical Assignment Statement. A logical as- 
signment statement is of the form 

u = e 
where u is a logical variable name or a logical array element 
name and e is a logical expression. Execution of this state- 
ment causes the logical expression to be evaluated and its 
value to be assigned to the logical entity. 

7.1.1.3 OO TO Assignment Statement. A GO TO 
assignment statement is of the form: 

ASSIGN k TO i 

where k is a statement label and i is an integer variable 
name. After execution of such a statement, subsequent 
execution of any assigned GO TO statement (Section 
7.1 .2.1.2) using that integer variable will cause the statement 
identified by the assigned statement label to be executed 
next, provided there has been no intervening redefinition 
(9.2) of the variable. The statement label must refer to an 
executable statement in the same program unit in which 
the ASSIGN statement appears. 

Once having been mentioned in an ASSIGN statement, 
an integer variable may not be referenced in any statement 
other than an assigned GO TO statement until it has been 
redefined (Section 10.2.3). 
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TABLE 


1. Rules for Assignment of e to i; 


// u Type Is 


Ande Type Is 


The Assignment Rule Is* 


Integer 
I nteger 
Integer 
I nteger 


Integer 

Heal 

Double Precision 

Complex 


Assign 
Fix & Assign 
Fix & Assign 
P 


Ileal 
Iteal 
Heal 
Heal 


Integer 

Heal 

Double Precision 

Complex 


Float & Assign 

Assign 

DP Evaluate & Real Assign 


Double Precision 
Double Precision 
Double Precision 
Double Precision 


Integer 

Heal 

Double Precision 

Complex 


DP Float & Assign 
DP Evaluate & Assign 
Assign 
P 


Complex 
Complex 
Complex 
(complex 


Integer 

Real 

Double Precision 

('omplex 


P 
P 
P 
Assign 



*N0TES. 

(1) P means prohibited combination. 

(2) Assign means transmit the resulting value, without 
change, to the entity. 

(3) Real Assign means transmit to the entity as much 
precision of the most significant part of the resulting value 
as a real datum can contain. 

(4) DP Evaluate means evaluate the expression ac- 
cording to the rules of 6.1 (or any more precise rules) then 
DP Float. 

(5) Fix means truncate any fractional part of the result 
and transform that value to the form of an integer datum. 

(6) Float means transform the value to the form of a 
real datum. 

(7) DP Float means transform the value to the form 
of a double precision datum, retaining in the process as 
much of the precision of the value as a double precision 
datum can contain. 



There are eight types of 



7.1.2 Control Statements. 
control statements: 

(1) GO TO statements. 

(2) arithmetic IF statement. 

(3) logical IF statement. 

(4) CALL statement. 

(5) RETURN statement. 

(6) CONTINUE statement. 

(7) program control statements. 

(8) DO statement. 

The statement labels used in a control statement must 
be associated with executable statements within the same 
program unit in which the control statement appears. 

7.1.2.1 GO TO Statements. There are three types of 
GO TO statements: 

(1) Unconditional GO TO statement. 

(2) Assigned GO TO statement. 

(3) Computed GO TO statement. 

7.1.2.1.1 Unconditional GO TO Statement. An un- 
conditional GO TO statement is of the form: 

GO TO k 
where A is a statement label. 

Execution of this statement causes the statement 
identified by the statement label to be executed next. 

7.1.2.1.2 Assigned GO TO Statement. An assigned GO 
TO statement is of the form: 

GO TO i, {ku kt, ■■■ , k„) 
where i is an integer variable reference, and the ft's are 
statement labels. 



At the time of execution of an assigned GO TO state- 
ment, the current value of i must have been assigned by the 
previous execution of an ASSIGN statement to be one of 
the statement labels in the parenthesized list, and such an 
execution causes the statement identified by that statement 
label to be executed next. 

7.1.2.1.3 Computed GO TO Statement. A computed 
GO TO statement is of the form: 

GOTO {k,,k2, ■■■ ,U,i 
where the k's are statement labels and i is an integer variable 
reference. See 10.2.8 and 10.3 for a discussion of require- 
ments that apply to the use of a variable in a computed 
GO TO statement. 

Execution of this statement causes the statement identi- 
fied by the statement label kj to be executed next, where j 
is the value of i at the time of the execution. This statement 
is defined only for values such that 1 i j ^ n. 

7.1.2.2 Arithmetic IF Statement. An arithmetic IF 
statement is of the form: 

IF (e) k,, hi, k:, 
where e is any arithmetic expression of type integer, real, 
or double precision, and the ^'s are statement labels. 

The arithmetic IF is a three-way branch. Execution of 
this statement causes evaluation of the expression e following 
which the statement identified by the statement label k^, 
kt, or k.i is executed next as the value of e is less than zero, 
zero, or greater than zero, respectively. 

7.1.2.3 Lof^ical IF Statement. A logical IF statement 
is of the form: 

IF (e) 6' 
where c is a logical expression and S is any executable 
statement except a DO statement or another logical IF 
statement. Upon execution of this statement, the logical 
expression e is evaluated. If the value of e is false, statement 
S is executed as though it were a CONTINUE statement. 
If the value of e is true, statement S is executed. 

7.1.2.4 CALL Statement. A CALL statement is of 
one of the forms: 

CALL s (ai, 02, ■ ■ ■ , a„) 

or 

CALL s 

where s is the name of a subroutine and the a'a are actual 

arguments (8.4.2). 

The inception of execution of a CALL statement 
references the designated subroutine. Return of control 
from the designated subroutine completes execution of the 
CALL statement. 

7.1.2.5 RETURN Statement. A RETURN statement 
is of the form: 

RETURN 

A RETURN statement marks the logical end of a 
procedure subprogram and, thus, may only appear in a 
procedure subprogram. 

Execution of this statement when it appears in a sub- 
routine subprogram causes return of control to the current 
calling program unit. 

Execution of this statement when it appears in a func- 
tion subprogram causes return of control to the current 
calling program unit. At this time the value of the function 
(8.3.1) is made available. 

7.1.2.6 CONTINUE Statement. A CONTINUE 
statement is of the form: 

CONTINUE 
Execution of this statement causes continuation of 
normal execution sequence. 
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7.1.2.7 Program Control Statements. There are two 
types of program control statements: 

(1) STOP statement. 

(2) PAUSE statement. 

7.1.2.7.1 STOP Statement. A STOP statement is of 
one of the forms: 

STOPra 

or 
STOP 
where n is an octal digit string of length from one to five. 
Execution of this statement causes termination of 
execution of the executable program. 

7.1.2.7.2 PAUSE Statement. A PAUSE statement is 
of one of the forms: 

PAUSE n 
or 
PAUSE 
where n is an octal digit string of length from one to five. 
The inception of execution of this statement causes a 
cessation of execution of this executable program. Execution 
must be resumable. At the time of cessation of execution 
the octal digit string is accessible. The decision to resume 
execution is not under control of the program, but if exe- 
cution is resumed without otherwise changing the state of 
the processor, the completion of the PAUSK statement 
causes continuation of normal execution sequence. 

7.1.2.8 DO Statement. A DO statement is of one of 
the forms: 

DO n i = m,, mi, m^ 
or 
DO n i = mi, mi 
where: 

(1) n is the statement label of an executable statement. 
This statement, called the terminal statement of the asso- 
ciated DO, must physically follow and be in the same 
program unit as that DO statement. The terminal state- 
ment may not be a GO TO of any form, arithmetic IF, 
RETURN, STOP, PAUSE, or DO statement, nor a logical 
IF containing any of these forms. 

(2) i is an integer variable name; this variable is 
called the control variable. 

(3) m,, called the initial parameter; mi, called the 
terminal parameter; and m.i, called the incrementation 
parameter, are each either an integer constant or integer 
variable reference. If the second form of the DO statement 
Ls used so that m.i is not explicitly stated, a value of one is 
implied for the incrementation parameter. At lime of exe- 
cution of the DO statement, mi, mi, and ms must be greater 
than zero. 

Associated with each DO statement is a range that is 
defined to be those executable statements from and in- 
cluding the first executable statement following the DO, 
to and including the terminal statement associated with 
the DO. A special situation occurs wlien the range of a DO 
contains another DO statement. In this case, the range of 
the contained DO must be a subset of the range of the 
containing DO. 

A completely nested nest is a set of DO statements and 
their ranges, and any DO statements contained within 
their ranges, such that the first occurring terminal statement 
of any of those DO statements physically follows the last 
occurring DO statement and the first occurring DO state- 
ment of the set is not in the range of any DO statement. 

A DO statement is used to define a loop. The action 
succeeding execution of a DO statement is described by the 
following five steps: 



1. The control variable is assigned the value repre- 
sented by the initial parameter. This value must be less 
than or equal to the value represented by the terminal 
parameter. 

2. The range of the DO is executed. 

3. If control reaches the terminal statement, and after 
execution of the terminal statement, the control variable of 
the most receritly executed DO statement associated with 
the terminal statement is incremented by the value repre- 
sented by the associated incrementation parameter. 

4. If the value of the control variable after incre- 
mentation is less than or equal to the value represented by 
the associated terminal parameter, the action as described 
starting at step 2 is repeated with the understanding that 
the range in question is that of the DO, the control variable 
of which was most recently incremented. If the value of the 
control variable is greater than the value represented by 
its associated terminal parameter, the DO is said to have 
been satisfied and the control variable becomes undefined. 

5. At this point, if there were one or more other DO 
statements referring to the terminal statement in question, 
the control variable of the next most recently executed DO 
statement is incremented by the value represented by its 
associated incrementation parameter and the action as 
described in step 4 is repeated until all DO statements 
referring to the particular termination statement are satis- 
fied, at which time the first executable statement following 
tlie terminal statement is executed. In the remainder of 
this section (7.1.2.8) a logical IF statement containing a 
GO TO or arithmetic IF statement form is regarded as a 
GO TO or arithmetic IF" statement respectively. 

Upon exiting from the range of a DO by execution of a 
GO TO statement or an arithmetic IF statement, that is, 
other than by satisfying the DO, the control variable of 
the DO is defined and is equal to the most recent value 
attained as defined in the foregoing. 

A DO is said to have an extended range if both of the 
following conditions apply: 

(1) There exists a GO TO statement or arithmetic IF 
statement within the range of the innermost DO of a com- 
pletely nested nest that can cause control to pass out of 
that nest. 

(2) There exists a GO TO statement or arithmetic IF 
statement not within the nest that, in the collection of all 
possible sequences of execution in the particular program 
unit could be executed after a statement of the type de- 
scribed in (1), and the execution of which could cause 
control to return into the range of the innermost DO of 
the completely nested nest. 

If both of these conditions apply, the extended range 
is defined to be the set of all executable statements that 
may be executed between all pairs of control statements, 
the first of which satisfies the condition of (1) and the 
second of (2). The first of the pair is not included in the 
extended range;, the second is. A GO TO statement or an 
arithmetic IF statement may not cause control to pass 
mto the range of a DO unless it is.being executed as part 
• of the extended range of that particular DO. Further, the 
extended range of a DO may not contain a DO of the same 
program unit that has an extended range. When a pro- 
c edure reference occurs in the range of a DO the actions of 
t hat procedure are considered to be temporarily within 
tjhat range, i.e., during the execution of that reference. 

The control variable, initial parameter, terminal para- 
nieter, and incrementation parameter of a DO may not be 
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redefined during the execution of the range or extended 
range of that DO. 

If a statement is the terminal statement of more than 
one DO statement, the statement label of that terminal 
statement may not be used in any GO TO or arithmetic 
IF statement that occurs anywhere but in the range of the 
most deeply contained DO with that terminal statement. 

7.1.3 Input/Output Statements. There are two types 
of input/output statements: 

(1) READ and WRITE statements. 

(2) Auxiliary Input/Output statements. 

The first type consists of the statements that cause 
transfer of records of sequential files to and from internal 
storage, respectively. The second type consists of the 
BACKSPACE and REWIND statements that provide for 
positioning of such an external file, and ENDFILE, which 
provides for demarcation of such an external file. 

In the following descriptions, u and f identify input/out- 
put units and format specifications, respectively. An in- 
put/output unit is identified by an integer value and u may 
be either an integer constant or an integer variable reference 
whose value then identifies the unit. The format specifica- 
tion is described in Section 7.2.3. Either the statement label 
of a FORMAT statement or an array name may be repre- 
.sented by /. If a statement label, the identified statement 
must appear in the same program unit as the input/output 
statement. If an array name, it must conform to the speci- 
fications in 7.2.3.10. 

A particular unit has a single sequential file associated 
with it. The most general ca.se of such a unit has the fol- 
lowing properties: 

(1) If the unit contains one or more records, those 
records exist as a totally ordered set. 

(2) There exists a unique position of the unit called 
its initial point. If a unit contains no records, that unit is 
positioned at its initial point. If the unit is at its initial 
point and contains records, the first record of the unit is 
defined as the next record. 

1 3) If a unit is not positioned at its initial point, there 
exists a unique preceding record associated with that posi- 
tion. The least of any records in the ordering described by 
(1) following this preceding record is defined as the next 
record of that position. 

14) Upon completion of execution of a WRITE or 
ENDFILE statement, there exist no records following the 
records created by that statement. 

(5) When the next record is transmitted, the position 
of the unit is changed so that this next record becomes the 
preceding record. 

If a unit does not provide for some of the properties 
given in the foregoing, certain statements that will be 
defined may not refer to that unit. The use of such a state- 
ment is not defined for that unit. 

7.1.3.1 READ and WRITE Statements. The READ 
and WRITE statements specify transfer of information. 
Each such statement may include a list of the names of 
variables, arrays, and array elements. The named elements 
are assigned values on input and have their values trans- 
ferred on output. 

Records may be formatted or unformatted. A formatted 
record consists of a string of the characters that are permis- 
sible in Hollerith constants (5.1.1.6). The transfer of such 
a record requires that a format specification be referenced 
to supply the necessary positioning and conversion specifi- 
cations (7.2.3). The number of records transferred by the 



execution of a formatted READ or WItlTE is dependent 
upon the list and referenced format specification (7.2.3.4). 
An unformatted record consists of a string of values. When 
an unformatted or formatted READ statement is executed, 
the required records on the identified unit must be, re- 
spectively, unformatted or formatted records. 

7.1.3.1.1 Input/Output Lists. The input list specifies 
the names of the variables and array elements to which 
values are assigned on input. The output list specifies the 
references to variables and array elements whose values 
are transmitted. The input and output lists are of the 
same form. 

Lists are formed in the following manner. A simple list 
is a variable name, an array element name, or an array 
name, or two simple lists separated by a comma. 

A list is a simple list, a simple list enclosed in paren- 
theses, a DO-implied list, or two lists separated by n comma. 
A DO-implied list is a list followed V)y a comma and a 
DO-implied specification, all enclosed in parentheses. 
A DO-implied specification is of one of the forms: 
I = ^1, m2, m:) 
or 
i = m,, m2 
The elements ;, m,, mi, and m.i are as defined for the 
DO statement (7.1.2.8). The range of DO-implied speci- 
fication i.<3 the list of the DO-implied list and, for input 
lists, i, m,, m-2, and m, may appear, within that range, only 
in subscripts. 

A variable name or array element name specifies itself. 
An array name specifies all of the array element names 
defined by the array declarator, and they are specified in 
the order given by the array element successor function 
(7.2.1.1.1). 

The elements of a list are specified in the order of their 
occurrence from left to right. The elements of a list in a 
DO-implied list are specified for each cycle of the implied 
DO. 

7.1.3.1.2 Formatted READ. A formatted READ 
statement is of one of the forms: 

READ (u, /) k 

or 
RI':AD (u, /) 
where k i.s a list. 

Execution of this statement causes the input of the 
next records from the unit identified by u. The information 
is scanned and converted as specified by the format speci- 
fication identified by /. The resulting values are assigned to 
the elements specified by the list. See however 7.2.3.4. 

7.1.3.1.3 Formatted WRITE. A formatted WRITE 
statement is of one of the forms: 

WRITE (u, f) k 

or 
WRITE (u, /) 
where ^ is a list. 

Execution of this statement creates the next records 
on the unit identified by u. The list specifies a sequence of 
values. These are converted and positioned as specified by 
the format specification identified by /. See however 7.2.3.4. 

7.1,3,1.4 Unformatted READ. An unformatted 
READ statement is of one of the forms: 
READ (u) k 

or 
READ (u) 
where ^ is a list. 
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Execution of this statement causes the input of the 
next record from the unit identified by u, and, if there is a 
list, these values are assigned to the sequence of elements 
specified by the list. The sequence of values required by 
the list may not exceed the sequence of values from the 
unformatted record. 

7.1.3.1.5 Unformatted WRITE. An unformatted 
WRITE statement is of the form: 

WRITE (u) k 
where A is a list. 

Execution of thi.s statement creates the next record on 
the unit identified by u of the sequence of values specified 
by the list. 

7.1.3.2 Auxiliary Input'Oulput Statements. There 
are three types of auxiliary input output statements: 

(1) REWIND statement. 

(2) HACKSPACE statement. 

(3) KNDFILE statement. 

7.1.3.2.1 REWIND Stu/cment. A REWIND state- 
ment is of the form: 

REWIND u 
Execution of this statement causes the unit identified 
by u to be positioned at its initial point. 

7.1.3.2.2 liACKSPACE Statement. A BACKSPACE 
statement is of the form: 

HACK.SPACE u 
If the unit identified by u i.s positioned at its initial 
point, execution of this statement has no effect. Otherwise, 
the execution of this statement results in the positioning 
of the unit identified V)y u so that what had been the pre- 
ceding record prior to that execution becomes the next 
record . 

7.1.3.2.3 ENDI'ILE Statement. An ENDFILE 
statement is of the form: 

ENDFILE u 
Execution of thi.i statement causes the recording of an 
endfile record on ihe unit identilied by u. The endfile record 
is an unique record signifying a demarcation of a sequential 
file. Acticm i.s undefined when an endfile record is encoun- 
tered during execution of a READ statement. 

7.1.3.3 Printing of Formatted Record. When for- 
matted records are prepared for printing, the fir.st character 
of the record is not printed. 

The fir.st character of such a record determines vertical 
spacing as follows: 

Charactrr Vertical Spacing Before Printing 

Blank One line 

Two lines 

1 To first line of next page 
+ No advance 

7.2 Nonexecutable Statements. There are five 
types of nonexecutable statements: 

(1) Specification statements. 

(2) Data initialization statement. 

(3) FORMAT statement. 

(4) Function defining statements. 

(5) Subprogram statements. 

See 10.1.2 for a discussion of restrictions on appearances 
of symbolic names in such statements. 

The function defining statements and subprogram state- 
ments are discussed in Section 8. 

7.2.1 Specification Statements. There are five types 
of specification statements: 

(1) DIMENSION statement. 

(2) COMMON statement. 



(3) EQUIVALENCE statement. 

(4) EXTERNAL statement. 

(5) Type-statements. 

7.2.1.1 Array-Declarator. An array declarator speci- 
fies an array used in a program unit. 

The array declarator indicates the symbolic name, the 
number of dimensions (one, two, or three) , and the size of 
each of the dimensions. The array declarator statement 
may be a type-statement, DIMENSION, or COMMON 
statement. 

An array declarator has the form: 
v (i) 
where: 

(1) V, called the declarator name, is a symbolic name, 

(2) (i), called the declarator subscript, is composed of 
1, 2, or 3 expressions, each of which may be an integer 
constant or an integer variable name. Each expression is 
separated by a comma from its successor if there are more 
than one of them. In the case where i contains no integer 
variable, i is called the constant declarator subscript. 

The appearance of a declarator subscript in a declarator 
statement serves to inform the processor that the declarator 
name is an array name. The number of subscript expressions 
specified for the array indicates its dimensionality. The 
magnitude of the values given for the subscript expressions 
indicates the maximum value that the subscript may attain 
in any array element name. 

No array element name may contain a subscript that, 
during execution of the executable program, assumes a 
value less than one or larger than the maximum length 
specified in the array declarator. 

7.2.1.1.1 Array Element Successor Function and Value 
of a Subscript. For a given dimensionality, subscript 
declarator, and subscript, the value of a subscript pointing 
to an array element and the maximum value a subscript 
may attain is indicated in Table 2. A subscript expression 
must be greater than zero. 

The value of the array element successor function is 
obtained by adding one to the entry in the subscript value 
column. Any array element whose subscript has this value 
is the successor to the original element. The last element 
of the array is the one whose subscript value is the maximum 
subscript value and has no successor element. 

TABLE 2. Value of a Subscript 



Dimen- 
sionality 



Subscript 
Declarator 



Subscript 



Subscript Value 



Maximum 

Subscript 

Value 



(A) 

(A, U) 

(A, H, C) 



<a) 

(a. b) 

(a. b, c) 



a + A-lb -1) 

a + A-(b -U -I- 

A-li.(c -1) 



A- 

AB 

A-BC 



Notes. (1) a, b, and c are subscript expressions. 
(2) A, B, and C are dimensions. 

7.2.1.1.2 Adjustable Dimension. If any of the entires 
in a declarator subscript is an integer variable name, the 
array is called an adjustable array, and the variable names 
are called adjustable dimensions. Such an array may only 
appear in a procedure subprogram. The dummy argument 
list of the subprograms must contain the array name and 
the integer variable names that represent the adjustable 
dimensions. The values of the actual arguments that repre- 
sent array dimensions in the argument list of the reference 
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must be defined (10.2) prior to calling the subprogram and 
may not be redefined or undefined dming execution of the 
subprogram. The maximum size of the actual array may 
not be exceeded. For every array appearing in an executable 
program (9.1.6), there must be at least one constant array 
declarator associated through subprogram. 

In a subprogram, a symbolic name that appears in a 
COMMON statement may not identify an adjustable array. 

7.2.1.2 DIMENSION Statement. A DIMENSION 
statement is of the form: 

DIMENSION D,(j,), ujdj), ••• , i»„(j„) 
where each v(i) is an array declarator. 

7.2.1.3 COMMON Statement. A COMMON state- 
ment is of the form: 

COMMON / X, / a, / ■■■ / x„ / a„ 
where each o is a nonempty list of variable names, array 
names, or array declarators (no dummy arguments are per- 
mitted) and each x is a symbolic name or is empty. If Xi 
is empty, the first two slashes are optional. Each x is a 
block name, a name that bears no relationship to any 
variable or array having the same name. This holds true 
for any such variable or array in the same or any other 
program unit. See 10.1.1 for a discussion of restrictions on 
uses of block names. 

In any given COMMON statement, the entities occur- 
ring between block name x and the next block name (or 
the end of the statement if no block name follows) are 
declared to be in common block x. All entities from the 
beginning of the statement until the appearance of a block 
name, or all entities in the statement if no block name 
appears, are declared to be in blank or unlabeled common. 
Alternatively, the appearance of two slashes with no block 
name between them declares the entities that follow to be 
in blank common. 

A given common block name may occur more than 
once in a COMMON statement or in a program unit. The 
processor will string together in a given common block all 
entities so assigned in the order of their appearance (10.1.2). 
The first element of an array will follow the immediately 
preceding entity, if one exists, and the last element of an 
array will immediately precede the next entity, if one 
exists. 

The size of a common block in a program unit is the 
sum of the storage required for the elements introduced 
through COMMON and EQUIVALENCE statements. The 
sizes of labeled common blocks with the same label in the 
program units that comprise an executable program must 
be the same. The sizes of blank common in the various 
program units that are to be executed together need not be 
the same. Size is measured in terms of storage units 
(7.2.1.3.1). 

7.2.1.3.1 Correspondence of Common Blocks. If all of 
the program units of an executable program that contain 
any definition of a common block of a particular name 
define that block such that: 

(1) There is identity in type for all entities defined in 
the corresponding position from the beginning of that block, 

(2) If the block is labeled and the same number of 
entities is defined for the block. 

Then the values in the corresponding positions (counted 
by the number of preceding storage units) are the same 
quantity in the executable program. 

A double precision or a complex entity is counted as 
two logically consecutive storage units; a logical, real, or 
integer entity, as one storage unit. 



Then for common blocks with the same number of 
storage units or blank common: 

(1) In all program units which have defined the identi- 
cal type to a given position (counted by the number of 
preceding storage units) references to that position refer to 
the same quantity. 

(2) A correct reference is made to a particular position 
assuming a given type if the most recent value assignment 
to that position was of the same type. 

7.2.1.4 EQUIVALENCE Statement. An EQUIVA- 
LENCE statement is of the form: 

EQUIVALENCE (A,). (*,), ••• , (A„) 
in which each A is a list of the form: 

O], Oj, ■ • • , Om. 

Each a is either a variable name or an array element 
name (not a dummy argument), the subscript of which 
contains only constants, and m is greater than or equal to 
two. The number of subscript expressions of an array 
element name must correspond in number to the dimen- 
sionality of the array declarator or must be one (the array 
element successor function defines a relation by which an 
array can be made equivalent to a one dimensional array 
of the same length) . 

The EQUIVALENCE statement is used to permit the 
sharing of storage by two or more entities. Each element 
in a given list is assigned the same storage (or part of the 
same storage) by the processor. The EQUIVALENCE 
statement should not be used to equate mathematically 
two or more entities. If a two storage unit entity is equiva- 
lenced to a one storage unit entity, the latter will share 
space with the first storage unit of the former. 

The assignment of storage to variables and arrays 
declared directly in a COMMON statement is determined 
solely by consideration of their type and the COMMON 
and array declarator statements. Entities so declared are 
always assigned unique storage, contiguous in the order 
declared in the COMMON statement. 

The effect of an EQUIVALENCE statement upon 
common assignment may be the lengthening of a common 
block; the only such lengthening permitted is that which 
extends a common block beyond the last assignment for 
that block made directly by a COMMON statement. 

When two variables or array elements share storage 
because of the effects of EQUIVALENCE statements, the 
symbolic names of the variables or arrays in question may 
not both appear in COMMON statements in the same 
program unit. 

Information contained in 7.2.1.1.1, 7.2.1.3.1, and the 
present section suffices to describe the possibilities of addi- 
tional cases of sharing of storage between array elements 
and entities of common blocks. It is incorrect to cause either 
directly or indirectly a single storage unit to contain more 
than one element of the same array. 

7.2.1.5 EXTERNAL Statement. An EXTERNAL 
statement is of the form: 

EXTERNAL D,, v^, • ■ ■ , Vn 
where each u is an external procedure name. 

Appearance of a name in an EXTERNAL statement 
declares that name to be an external procedure name. If 
an external procedure name is used as an argument to 
another external procedure, it must appear in an EXTER- 
NAL statement in tlje program unit in which it is so used. 

7.2.1.6 Type-statements. A type-statement is of the 
form: 

t Vi, Vi, ■ •■ ,v„ 
where t is INTEGER, REAL, DOUBLE PRECISION, 
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COMPLEX, or LOGICAL, and each y is a variable name, 
an array name, a function name, or an array declarator. 

A type-statement is used to override or confirm the 
implicit typing, to declare entities to be of type double 
precision, complex, or logical, and may supply dimension 
information. 

The appearance of a symbolic name in a type-statement 
serves to inform the processor that it is of the specified 
data type for all appearances in the program unit. See, 
however, the restriction in 8.3.1 second paragraph. 

7.2.2 Data Initialization Statement. A data initial- 
ization statement is of the form: 

DATA /.', / dt /, ki / d2 /,■■■, k^ / dn / 
where: 

(1) Each k is a list containing names of variables and 
array elements, 

(2) Each d is a list of constants and optionally signed 
constants, any of which may be preceded by ;*, 

(3) ) is an integer constant. 

If a list contains more than one entry, the entries are 
separated by commas. 

Dummy arguments may not appear in the list k. Any 
subscript expression must be an integer constant. 

When the form ;* appears before a constant it indicates 
that the constant is to be specified ; times. A Hollerith con- 
stant may appear in the list d. 

A data initialization statement is used to define initial 
values of variables or array elements. There must be a 
one-to-one correspondence between the list-specified items 
and the constants. By this correspondence, the initial value 
is established. 

An initially defined variable or array element may not 
be in blank common. A variable or array element in a 
labeled common block may be initially defined only in a 
block data subprogram. 

7.2.3 FORMAT Statement. FORMAT statements 
are used in conjunction with the input/output of formatted 
records to provide conversion and editing information be- 
tween the internal representation and the external character 
strings. 

A FORMAT statement is of the form: 

FORMAT (qit,Zit2Z2 ■■■ Zn-a„q2) 
where: 

(1) {qitxZitiZz ■ ■ ■ Zn-UnQi) is 1-be format specification. 

(2) Each 7 is a series of slashes or is empty. 

(3) Each < is a field descriptor or group of field de- 
scriptors. 

(4) Each z is a field separator. 

(5) n may be zero. 

A FORMAT statement must be labeled. 
7.2.3.1 Field Descriptors. The format field descriptors 
are of the forms: 

srFw.d 

srEw.d 

srGw.d 

srDw.d 

rlw 

rLiW 

rAw 

raHAi/is ■ ■ ■ hn 

nX 
where: 

(1) The letters F, E, G, D, I, L, A, H, and X indicate 
the manner of conversion and editing between the internal 
and external representations and are called the conversion 
codes. 



(2) w and n are nonzero integer constants representing 
the width of the field in the external character string. 

(3) rf is an integer constant representing the number 
of digits in the fractional part of the external character 
string (except for G conversion code). 

(4) r, the repeat count, is an optional nonzero integer 
constant indicating the number of times to repeat the suc- 
ceeding basic field descriptor. 

(5) s is optional and represents a scale factor desig- 
nator. 

(6) Each h is one of the characters capable of repre- 
sentation by the processor. 

For all descriptors, the field width must be specified. 
For descriptors of the form w.d , the d must be specified, 
even if it is zero. Further, w must be greater than or equal 
to d. 

The phra.se basic field descriptor will be used to signify 
the field descriptor unmodified by s or r. 

The internal representation of external fields will cor- 
respond to the internal representation of the corresponding 
type constants (4.2 and 5.1.1). 

7.2.3.2 Field Separators. The format field separators 
are the slash and the comma. A series of slashes is also a 
field separator. The field descriptors or groups of field 
descriptors are separated by a field separator. 

The slash is used not only to separate field descriptors, 
but to specify demarcation of formatted records. A for- 
matted record is a string of characters. The lengths of the 
strings for a given external medium are dependent upon 
both the processor and the external medium. 

The processing of the number of characters that can 
be contained in a record by an external medium does not 
of itself cause the introduction or inception of processing of 
the next record. 

7.2.3.3 Repeat Specifications. Repetition of the field 
descriptors (except «H and nX) is accomplished by using 
the repeat count. If the input/output list warrants, the 
specified conversion will be interpreted repetitively up to 
the specified number of times. 

Repetition of a group of field descriptors or field 
separators is accomplished by enclosing them within paren- 
theses and optionally preceding the left parenthesis with an 
integer constant called the group repeat count indicating 
the number of times to interpret the enclosed grouping. If 
no group repeat count is specified, a group repeat count of 
one is assumed. This form of grouping is called a basic group. 

A further grouping may be formed by enclosing field 
descriptors, field separators, or basic groups within paren- 
theses. Again, a group repeat count may be specified. The 
parentheses enclosing the format specification are not con- 
sidered as group delineating parentheses. 

7.2.3.4 Format Control Interaction with an Input /Out- 
put List. The inception of execution of a formatted READ 
or formatted WRITE statement initiates format control. 
Each action of format control depends on information 
jointly provided respectively by the next element of the 
input/output list, if one exists, and the next field descriptor 
obtained from the format specification. If there is an in- 
put/output list, at least one field descriptor other than nH 
or reX must exist. 

When a READ statement is executed under format 
control, one record is read when the format control is 
initiated, and thereafter additional records are read only 
as the format specification demands. Such action may not 
require more characters of a record than it contains. 
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When a WRITE statement is executed under format 
control, writing of a record occurs each time the format 
specification demands that a new record be started. Ter- 
mination of format control causes writing of the current 
record. 

Except for the effects of repeat counts, the format 
specification is interpreted from left to right. 

To each I, F, E, G, D, A, or L basic descriptor inter- 
preted in a format specification, there corresponds one 
element specified by the input/output list, except that a 
complex element requires the interpretation of two F, E, 
or G basic descriptors. To each H or X basic descriptor 
there is no corresponding element specified by the input/out- 
put list, and the format control communicates information 
directly with the record. Whenever a slash is encountered, 
the format specification demands that a new record start 
or the preceding record terminate. During a READ oper- 
ation, any unprocessed characters of the current record 
will be skipped at the time of termination of format control 
or when a slash is encountered. 

Whenever the format control encounters an I, F, E, 
G, D, A, or L basic descriptor in a format specification, it 
determines if there is a corresponding element specified by 
the input/output list. If there is such an element, it trans- 
mits appropriately converted information between the 
element and the record and proceeds. If there is no cor- 
responding element, the format control terminates. 

If, however, the format control proceeds to the last 
outer right parenthesis of the format specification, a test is 
made to determine if another list element is specified. If 
not, control terminates. However, if another list element is 
specified, the format control demands a new record start 
and control reverts to that group repeat specification ter- 
minated by the last preceding right parenthesis, or if none 
exists, then to the first left parenthesis of the format speci- 
fication. Note, this action of itself has no effect on the 
scale factor. 

7.2.3.5 Scale Factor. A scale factor designator is 
defined for use with the F, E, G, and D conversions and is 
of the form: 

nP 
where n, the scale factor, is an integer constant or minus 
followed by an integer constant. 

When the format control is initiated, a scale factor of 
zero is established. Once a scale factor has been established, 
it applies to all subsequently interpreted F, E, G, and D 
field descriptors, until another scale factor is encountered, 
and then that scale factor is established. 

7.2.3.5.1 Scale Factor Effects. The scale factor n 
affects the appropriate conversions in the following manner: 

(1) For F, E, G, and D input conversions (provided 
no exponent exists in the external field) and F output con- 
versions, the scale factor effect is as follows: 

externally represented number equals internally 
represented number times the quantity ten raised 
to the nth power. 

(2) For F, E, G, and D input, the scale factor has no 
effect if there is an exponent in the external field. 

(3) For E and D output, the basic real constant part 
of the output quantity is multiplied by 10" and the exponent 
is reduced by n. 

(4) For G output, the effect of the scale factor is 
suspended unless the magnitude of the datum to be con- 
verted is outside the range that permits the effective use of 
F conversion. If the effective use of E conversion is required, 
the scale factor has the same effect as with E output. 



7.2.3.6 Numeric Conversions. The numeric field de- 
scriptors I, F, E, G, and D are used to specify input/output 
of mteger real, double precision, and complex data. 

(1) With all numeric input conversions, leading blanks 
are not significant and other blanks are zero. Plus signs 
may be omitted. A field of all blanks is considered to be 
zero. 

(2) With the F, E, G, and D input conversions, a 
decmial point appearing in the input field overrides the 
decimal point specification supplied -by the field descriptor. 

(3) With all output conversions, the output field is 
right justified. If the number of characters produced by 
the conversion is smaller than the field width, leading 
blanks will be inserted in the output field. 

(4) With all output conversions, the external repre- 
sentation of a negative value must be signed; a positive 
value may be signed. 

(5) The number of characters produced by an output 
conversion must not exceed the field width. 

7.2.3.6.1 Intcf-er Conversion. The numeric field de- 
scriptor Iw indicates that the external field occupies w 
positions as an integer. The value of the list item appears, 
or is to appear, internally as an integer datum. 

In the external input field, the character string must be 
in the form of an integer constant or signed integer constant 
(5.1.1.1), except for the interpretation of blanks (7.2.3.6). 

The external output field consists of blanks, if necessary, 
followed by a minus if the value of the internal datum is 
negative, or an optional plus otherwise, followed by the 
magnitude of the internal value converted to an integer 
constant. 

7.2.3.6.2 Real Conversions. There are three conver- 
sions available for use with real data: F, E, and G. 

The numeric field descriptor Fw.d indicates that the 
external field occupies w positions, the fractional part of 
which consists of t/ digits. The value of the list item appears, 
or is to appear, internally as a real datum. 

The basic form of the external input field consists of an 
optional sign, followed by a string of digits optionally con- 
taining a decimal point. The basic form may be followed 
by an exponent of one of the following forms: 

(1) Signed integer constant. 

(2) E followed by an integer constant. 

(3) E followed by a signed integer constant. 

(4) D followed by an integer constant. 

(5) D followed by a signed integer constant. 

An exponent containing D is equivalent to an ex- 
ponent containing E. 

The external output field consists of blanks, if necessary, 
followed by a minus if the internal value is negative, or an 
optional plus otherwise, followed by string of digits con- 
taining a decimal point representing the magnitude of the 
internal value, as modified by the established scale factor, 
rounded to d fractional digits. 

The numeric field descriptor V,w.d indicates that the 
external field occupies w positions, the fractional part of 
which consists of rf digits. The value of the list item appears, 
or is to appear, internally as a real datum. 

The form of the external input field is the same as for 
the F conversion. 

The standard form of the external output field for a 
scale factor of zero is' 

iO.Xi ■ ■ ■ XdY 



'i signifies no character position or minus in that position. 
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where: 

(1) xi ■ ■ ■ Xd are the d moat significant rounded digits 
of the value of the data to be output. 

(2) Y is of one of the forms: 

E ± yiy2 or ± yiy2y3 
and has the significance of a decimal exponent (an alter- 
native for the plus in the first of these forms is the character 
blank). 

(3) The digit in the aforementioned standard form 
may optionally be replaced by no character position. 

(4) Each y is a digit. 

The scale factor n controls the decimal normalization 
between the number part and the exponent part such that: 

(1) If n ^ 0, there will be exactly — n leading zeros 
and d + n significant digits after the decimal point. 

(2) If « > 0, there will be exactly n significant digits 
to the left of the decimal point and d — n + 1 to the right 
of the decimal point. 

The numeric field descriptor Gui.d indicates that the 
external field occupies w positions with d significant digits. 
The value of the list item appears, or is to appear, internally 
as a real datum. 

Input processing is the same as for tho F inversion. 
The method of representation in the external output 
string is a function of the magnitude of the real datum being 
converted. Let N be the magnitude of the internal datum. 
The following tabulation exhibits a correspondence between 
N and the equivalent method of conversion that will be 
effected: 

Magnitude of Datum Equivalent Conversion Effected 

0.1 g N < 1 F(i^ - 4).d, 4X 

1 g N < 10 F{w - 4).(rf - 1), 4X 



10" 



< N < 10''-' 



10''-' g N < 10'' 



F(w - 4).1,4X 
F{w - 4).0, 4X 
Otherwise sEw.d 

Note that the effect of the scale factor is suspended unless 
the magnitude of the datum to be converted is outside of 
the range that permits effective use of F conversion. 

7.2.3.6.3 Double Precision Conversion. The numeric 
field descriptor Dw.d indicates that the external field 
occupies w positions, the fractional part of which consists 
of d digits. The value of the list item appears, or is to appear, 
internally as a double precision datum. 

The basic form of the external input field is the same 
as for real conversions. 

The external output field is the same as for the E 
conversion, except that the character D may replace the 
character E in the exponent. 

7.2.3.6.4 Complex Conversion. Since a complex da- 
tum consists of a pair of separate real data, the conversion 
is specified by two successively interpreted real field de- 
scriptors. The first of these supplies the real part. The 
second supplies the imaginary part. 

7.2.3.7 Logical Conversion. The logical field descrip- 
tor hw indicates that the external field occupies w positions 
as a string of information as defined below. The list item 
appears, or is to appear, internally as a logical datum. 

The external input field must consist of optional blanks 
followed by a T or F followed by optional characters, for 
true and false, respectively. 

The external output field consists of ly — 1 blanks 
followed by a T or F as the value of the internal datum is 
true or false, respectively. 



7.2.3.8 Hollerith Field Descriptor. Hollerith informa- 
tion may be transmitted by means of two field descriptors, 
nH and Aw: 

(1) The nH descriptor causes Hollerith information to 
be read into, or viritten from, the n characters (including 
blanks) following the nH descriptor in the format specifi- 
cation itself. 

(2) The Aw descriptor causes w Hollerith characters 
to be read into, or written from, a specified list element. 

Let g be the number of characters representable in a 
single storage unit (7.2.1.3.1). If the field width specified 
for A input is greater than or equal to g, the rightmost g 
characters will be taken from the external input field. If 
the field width is less than g, the w characters will appear 
left justified with w — g trailing blanks in the internal 
representation. 

If the field width specified for A output is greater than 
g, the external output field will consist oi w — g blanks, 
followed by the g characters from the internal representa- 
tion. If the field width is less than or equal to g, the external 
output field will consist of the leftmost w characters from 
the internal representation. 

7.2.3.9 Blank Field Descriptor. The field descriptor 
for blanks is nX . On in.^ut, n characters of the external 
input record are skipped. On output, n blanks are inserted 
in the external output record. 

7.2.3.10 Format Specification in Arrays. Any of the 
formatted input/output statements may contain an array 
name in place of the reference to a FORMAT statement 
label. At the time an array is referenced in such a manner, 
the first part of the information contained in the array, 
taken in the natural order, must constitute a valid format 
specification. There is no requirement on the information 
contained in the array following the right parenthesis that 
ends the format specification. 

The format specification which is to be inserted in the 
array has the same form as that defined for a FORMAT 
statement; that is, begins with a left parenthesis and ends 
with a right parenthesis. An nH field descriptor may not 
be part of a format specification within an array. 

The format specification may be inserted in the array 
by use of a data initialization statement, or by use of a 
READ statement together with an A format. 



8. PROCEDURES AND SUBPROGRAMS 

There are four categories of procedures: statement 
functions, intrinsic functions, external functions, and ex- 
ternal subroutines. The first three categories are referred to 
collectively as functions or function procedures; the last as 
subroutines or subroutine procedures. There are two cate- 
gories of subprograms: procedure subprograms and speci- 
fication subprograms. Function subprograms and subroutine 
subprograms are classified as procedure subprograms. Block 
data subprograms are classified as specification subprograms. 
Type rules for function procedures are given in 5.3. 

8.1 Statement Functions. A statement function is 
defined internally to the program unit in which it is refer- 
enced. It is defined by a single statement similar in form to 
an arithmetic or logical assignment statement. 

In a given program unit, all statement function defini- 
tions must precede the first executable statement of the 
program unit and must follow the specification statements, 
if any. The name of a statement function must not appear 
in an EXTERNAL statement, nor as a variable name or 
an array name in the same program unit. 
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8.1.1 Defining Statement Functions. A statement 
function is defined by a statement of the form: 

f{a,,a2, ■■■ ,an) = e 
where / is the function name, e is an expression, and the 
relationship between / and e must conform to the assign- 
ment rules in 7.1.1.1 and 7.1.1.2. The a'a are distinct variable 
names, called the dummy arguments of the function. Since 
these are dummy arguments, their names, which serve only 
to indicate type, number, and order of arguments, may be 
the same as variable names of the same type appearing 
elsewhere in the program unit. 

Aside from the dummy arguments, the expression e 
may only contain: 

(1) Non-Hollerith constants. 

(2) Variable references. 

(3) Intrinsic function references. 

(4) References to previously defined statement func- 
tions. 

(5) External function references. 

8.1.2 Referencing Statement Functions. A statement 
function is referenced by using its reference (5.2) as a 
primary in an arithmetic or logical expression. The actual 
arguments, which constitute the argument list, must agree 
in order, number, and type with the corresponding dummy 
arguments. An actual argument in a statement function 
reference may be any expression of the same type as the 
corresponding dummy argument. 

Execution of a statement function reference results in 
an association (10.2.2) of actual argument values with the 
corresponding dummy arguments in the expression of the 
function definition, and an evaluation of the expression. 
Following this, the resultant value is made available to the 
expression that contained the function reference. 

8.2 Intrinsic Functions .and Their Reference. 
The symbolic names of the intrinsic functions (see Table 3) 
are predefined to the processor and have a special meaning 
and type if the name satisfies the conditions of 10.1.7. 

An intrinsic function is referenced by using its reference 
as a primary in an arithmetic or logical expression. The 
actual arguments, which constitute the argument list, must 
agree in type, number, and order with the specification in 
Table 3 and may be any expression of the specified type. 
The intrinsic functions AMOD, MOD, SIGN, ISIGN, and 
DSIGN are not defined when the value of the second 
argument is zero. 

Execution of an intrinsic function reference results in 
the actions specified in Table 3 based on the values of the 
actual arguments. Following this, the resultant value is 
made available to the expression that contained the function 
reference. 

8.3 External Functions. An external function is 
defined externally to the program unit that references it. 
An external function defined by Fortran statements headed 
by a FUNCTION statement is called a function sub- 
program. 

8.3.1 Defining Function Subprograms. A FUNCTION 
statement is of the form: 

t FUNCTION / (a,,a2, ■•• ,a„) 
where: 

(1) t is either INTEGER, REAL, DOUBLE PRE- 
CISION, COMPLEX, or LOGICAL, or is empty. 

(2) / is the symbolic name of the function to be defined. 

(3) The a's, called the dummy arguments, are each 
either a variable name, an array name, or an external 
procedure name. 



TABLE 3. Intrinsic Functions 



Intrinsic 
Function 



Definition 



Number 

of Symbolic - 

Argu- Name 
ments 



Type of: 



Argu- 
ment 



Function 



Absolute Value 


lal 


1 


ABS 

lABS 

DABS 


Real 

Integer 

Double 


Real 

Integer 

Double 


Truncation 


Sign of a times 
largest integer 


I 


AINT 

INT 

IDINT 


Real 
Real 
Double 


Real 

Integer 

Integer 


Remaindering* 
(see note 
below) 


ai (mod as) 


2 


AMOD 
MOD 


Real 
Integer 


Real 
Integer 


Choosing 

Largest Value 


Max (ai, aj, ■ • • > 


62 


AMAXO 

AMAXl 

MAXO 

MAXl 

DMAXl 


Integer 

Real 

Integer 

Heal 

Double 


Real 

Heal 

Integer 

Integer 

Double 


Choosing 
Smallest 
Value 


Min fat, as, • ■ ■ J 


52 


AMINO 

AMINl 

MINO 

MINI 

DMINl 


Integer 

Real 

Integer 

Real 

Double 


Real 

Real 

Integer 

Integer 

Double 


Float 


Conversion from 
integer to real 


1 


FLOAT 


Integer 


Ileal 


Fix 


Conversion from 
real to integer 


I 


IFIX 


Real 


Integer 


Transfer of Sign 


Sign of ai times 

|a,| 


2 


SIGN 

ISIGN 

DSIGN 


Real 

Integer 

Double 


Real 

Integer 

Double 


Positive Differ- 
ence 


at —Min (a\, ai) 


2 


DIM 
IDIM 


Real 
Integer 


Real 
Integer 



Obtain Most 
Significant 
Part of 
Double Preci- 
sion Argument 

Obtain Real 
Part of Com- 
plex Argu- 
ment 

Obtain Imagi- 
nary Part of 
Complex 
Argument 

Express Single 
Precision Ar- 
gument in 
Double Pre- 
cision Form 

Express Two 

Real Argu- 
ments in 
Complex 
Form 

Obtain Conju- 
gate of a 
Complex 
Argument 



a^ + aiV -1 



Double Real 



1 REAL Complex Real 



1 AIMAG Complex Real 



1 DBLE Real Double 



2 CMPLX Real Complex 



CONJG Complex Complex 



*The function MOD or AMOD fai, at) is deflned as ai — [aj/aijaj, where {x 
is the integer whose magnitude does not exceed the magnitude of x and 
whoso sign is the same as x. 

Function' subprograms are constructed as specified in 
9.1.3 with the following restrictions: 

(1) The symbolic name of the function must also 
appear as a variable name in the defining subprogram. 
During every execution of the subprogram, this variable 
must be defined and, once defined, may be referenced or 
redefined. The value of the variable at the time of execution 
of any RETURN statement in this subprogram is called 
the value of the function. 
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(2) The symbolic name of the function must not appear 
in any nonexecutable statement in this program unit, except 
as the symbolic name of the function in the FUNCTION 
statement. 

(3) The symbolic names of the dummy arguments may 
not appear in an EQUIVALENCE, COMMON, or DATA 
statement in the function subprogram. 

(4) The function subprogram may define or redefine 
one or more of its arguments so as to eifectively return 
results in addition to the value of the function. 

(5) The function subprogram may contain any state- 
ments except BLOCK DATA, SUBROUTINE, another 
FUNCTION statement, or any statement that directly or 
indirectly references the function being defined. 

(6) The function subprogram must contain at least 
one RETURN statement. 

8.3.2 Referencing External Functions. An external 
function is referenced by using its reference (5.2) as a 
primary in an arithmetic or logical expression. The actual 
arguments, which constitute the argument list, must agree 
in order, number, and type with the corresponding dummy 
arguments in the defining program unit. An actual argument 
in an external function reference may be one of the following: 

(1) A variable name. 

(2) An array element name. 

(3) An array name. 

(4) Any other expression. 

(5) The name of an external procedure. 

If an actual argument is an external function name or 
a subroutine name, then the corresponding dummy argu- 
ment must be used as an external function name or a 
subroutine name, respectively. 

If an actual argument corresponds to a dummy argu- 
ment that is defined or redefined in the referenced sub- 
program, the actual argument must be a variable name, an 
array element name, or an array name. Execution of an 
external function reference as described in the foregoing, 
results in an association (10.2.2) of actual arguments with 
all appearances of dummy arguments in executable state- 
ments, function definition statements, and as adjustable 
dimension.s in the defining subprogram. If the actual argu- 
ment is as specified in item (4) in the foregoing, this associa- 
tion is by value rather than by name. Following these 
associations, execution of the first executable statement of 
the defining subprogram is undertaken. An actual argument 
which is an array element name containing variables in the 
subscript could in every case be replaced by the same 
argument with a constant subscript containing the same 
values as would be derived by computing the variable 
subscript just before the association of arguments takes 
place. 

If a dummy argument of an external function is an 
array name, the corresponding actual argument must be 
an array name or array element name (10.1.3). 

If a function reference causes a dummy argument in 
the referenced function to become associated with another 
dummy argument in the same function or with an entity 
in common, a definition of either within the function is 
prohibited. 

Unless it is a dummy argument, an external function is 
also referenced (in that it must be defined) by the appear- 
ance of its symbolic name in an EXTERNAL statement. 

8.3.3 Basic External Functions. FORTRAN processors 
must supply the external functions listed in Table 4. 
Referencing of these functions is accomplished as described 
in (8.3.2). Arguments for which the result of these functions 



is not mathematically defined or is of type other than that 
specified are improper. 

8.4 Subroutine. An external subroutine is defined 
externally to the program unit that references it. An external 
subroutine defined by Fortran statements headed by a 
SUBROUTINE statement is called a subroutine subpro- 
gram. 



TABLE 4. 


Basic External Functions 




Basic External 
Function 


Definition 


Number 
of 
Argu- 
ments 


Symbolic 
Name 


Type of: 


Argu- 
ment 


Function 


Exponential 


e' 




1 
1 
1 


EXP 

DEXP 

CEXP 


Real 

Double 

Complex 


Real 

Double 

Complex 


Natural I.oga- 
rithm 


log. (a) 




1 
I 

1 


ALOG 
I>V)G 
CLOG 


Real 

Double 

Complex 


lieal 

Double 

Complex 


Common Loga- 
rithm 


logio (o) 




1 


ALOGIO 
DLOGIO 


Real 
Double 


Real 
Double 


Trigonometric 

Sine 


sin (a) 




1 
1 
1 


SIN 

dsin 

CSIN 


Real 

Double 

Complex 


Real 

Double 

Complex 


TriRonometric 
Cosine 


cos fo) 




1 
1 
1 


COS 

DCOS 

CCOS 


Real 

Double 

Complex 


Real 

Double 

Complex 


Hyperbolic 
Tangent 


lanh (a 




1 


TANH 


Real 


Real 



Square Root (a)''' 

Arctangent arctan (a) 

arctan (ai/a^) 

Remaindering* ai (mod ai) 
Modulus 



SQRT Real Real 

DSQRT Double Double 

CSQRT Complex Complex 

ATAN Real Real 

DATAN Double Double 

ATAN2 Real Real 

DATAN2 Double Double 

DMOD Double Double 

CABS Complex Real 



*The function DMOD (ai, a,) is defined as m - lai/ai]ai, where |a:| is the 
integer whose magnitude does not exceed the magnitude of x and whose 
Hign is the same as the sign of x. 

8.4.1 Defining Subroutine Subprograms. A SUBROU- 
TINE statement is of one of the forms: 

SUBROUTINE s (a,, ai, ■ ■ ■ , a„) 
or 
SUBROUTINE s 
where: 

(1) s is the symbolic name of the subroutine to be 
defined . 

(2) The a'a, called the dummy arguments, are each 
either a variable name, an array name, or an external pro- 
cedure name. 

Subroutine subprograms are constructed aa specified 
in 9.1.3 with the following restrictions: 

(1) The symbolic name of the subroutine must not 
appear in any statement in this subprogram except as the 
symbolic name of the subroutine in the SUBROUTINE 
statement itself. 

(2) The symbolic names of the dummy arguments may 
not appear in an EQUIVALENCE, COMMON, or DATA 
statement in the subprogram. 

(3) The subroutine subprogram may define or redefine 
one or more of its arguments so as to effectively return 
results. 

(4) The subroutine subprogram may contain any state- 
ments except BLOCK DATA, FUNCTION, another SUB- 



F-17 



BX32 



ROUTINE statement, or any statement that directly or 
indirectly references the subroutine being defined. 

(5) The subroutine subprogram must contain at least 
one RETURN statement. 

8.4.2 Referencing Subroutines. A subroutine is refer- 
enced by a CALL statement (7.1.2.4) . The actual arguments, 
which constitute the argument list, must agree in order, 
number, and type with the corresponding dummy argu- 
ments in the defining program. The use of a Hollerith 
con.stant as an actual argument is an exception to the rule 
requiring agreement of type. An actual argument in a 
subroutine reference may be one of the following: 

(1) A Hollerith constant. 

(2) A variable name. 

(3) An array element name. 

(4) An array name. 

(5) Any other expression. 

(fi) The name of an external procedure. 

If an actual argument is an external function name or 
a subroutine name, the corresponding dummy argument 
must be used as an external function name or a subroutine 
name, respectively. 

If an actual argument corresponds to a dummy argu- 
ment that is defined or redefined in the referenced sub- 
program, the actual argument must be a variable name, an 
array element name, or an array name. 

Execution of a subroutine reference as described in the 
foregoing resulUs in an a.ssociation of actual arguments with 
all appearances of dummy arguments in executable state- 
ments, function definition statements, and as adjustable 
dimensions in the defining subprogram. If the actual argu- 
ment is as specified in item (."i) in the foregoing, this associa- 
tion is by value rather than by name. Following these 
associations, execution of the first executable statement of 
the defining subprogram is undertaken. 

An actual argument which is an array element name 
containing variables in the subscript could in every case be 
replaced by the same argument with a constant subscript 
containing the same values as would be derived by com- 
puting the variable subscript just before the association of 
arguments takes place. 

If a dummy argument of an external function is an 
array name, the corresponding actual argument must be 
an array name or array element name (10.1.3). 

If a subroutine reference causes a dummy argument in 
the referenced subroutine to become associated with another 
dummy argument in the same subroutine or with an entity 
in common, a definition of either entity within the sub- 
routine is prohibited. 

Unless it is a dummy argument, a subroutine is also 
referenced (in that it must be defined) by the appearance 
of its symbolic name in an EXTERNAL statement. 

8.5 Block Data Subprogram. A BLOCK DATA 
statement is of the form: 

BLOCK DATA 

This statement may only appear as the first statement of 
specification subprograms that are called block data sub- 
programs, and that are used to enter initial values into 
elements of labeled common blocks. This special subprogram 
contains only type-statements, EQUIVALENCE, DATA, 
DIMENSION, and COMMON sUtements. 

If any entity of a given common block is being given an 
initial value in such a subprogram, a complete set of specifi- 
cation statements for the entire block must be included, 
even though some of the elements of the block do not appear 



in DATA statements. Initial values may be entered into 
more than one block in a single subprogram. 

9. PROGRAMS 

An executable program is a collection of statements, 
comment lines, and end lines that completely (except for 
input data values and their effects) de.scribe a computing 
procedure. 

9.1 Program Component. Programs consist of 
program parts, program bodies, and subprogram statements. 

9.1.1 Program Part. A program part must contain 
at least one executable statement and may contain FOR- 
MAT statements, and data initialization statements. It 
need not contain any statements from either of the latter 
two clafuses of statement. This collection of statements may 
optionally be preceded by statement function definitions, 
data initialization statements, and FORMAT statements. 
As before only some or none of these need be present. 

9.1.2 Program Body. A program body is a collec- 
tion of specification statements, FORMAT statements or 
both, or neither, followed by a program part, followed by 
an end line. 

9.1.3 Subprogram. A subprogram consi.stj? of a 
SUBROUTINE or FUNCTION statement followed by a 
program body, or i.s a block data subprogram. 

9.1.4 Block Data Subprogram. A block data sub- 
program consists of a BLOCK DATA statement, followed 
by the appropriate (8.5) specification statements, followed 
by data initialization statements, followed by an end line. 

9.1.5 Alain Program. A main program consists of 
a program body. 

9.1.6 Executable Program. An executable program 
consists of a main program plus any number of subpro- 
grams, external procedures, or both. 

9.1.7 Program Unit. A program unit is a main 
program or a subprogram. 

9.2 Normal Execution Sequence. When an ex- 
ecutable program begins operation, execution commences 
with the execution of the first executable statement of the 
main program, A subprogram, when referenced, starts ex- 
ecution with execution of the first executable statement of 
that subprogram. Unless a statement is a CO TO, arithmetic 
IF, RETURN, or STOP statement or the terminal state- 
ment of a DO, completion of execution of that statement 
cauf5e8 execution of the next following executable statement. 
The sequence of execution following execution of any of 
these statements is described in Section 7. A program part 
may not (in the sense of 1.1) contain an executable state- 
ment that can never be executed. 

A program part must contain a first executable state- 
ment. 

10. INTRA- AND INTERPROGRAM 
RELATIONSHIPS' 

10.1 Symbolic Names. A symbolic name has been 
defined to consist of from one to six alphanumeric characters, 
the first of which must be alphabetic. Sequences of characters 
that are format field descriptors or uniquely identify certain 
statement types, e.g., GO TO, READ, FORMAT, etc. are 
not symbolic names in such occurrences nor do they form 
the first characters of symbolic names in these cases. In a 
program unit, a symbolic name (perhaps qualified by a 
subscript) must identify an element of one (and usually only 
one) of the following classes: 
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Class I An array and the elements of that array. 

Class II A variable. 

Class III A statement function. 

Class IV An intrinsic function. 

Class V An external function. 

Class VI A subroutine. 

Class VII An external procedure which cannot be 
classified as either a subroutine or an external function in 
the program unit in question. 

Class VIII A block name. 

10.1.1 Restrictions on Class. A symbolic name in 
Class VIII in a program unit may also be in any one of the 
Classes I, II, or 111 in that program unit. 

In the program unit in which a symbolic name in Class 
V appears immediately following the word FUNCTION in 
a FUNCTION statement, that name must also be in 
Cla.ss 11. 

Once a symbolic name is used in (ylass V, VI, VI 1, or 
VIII in any unit of an executable program, no other pro- 
gram unit of that executable progrJim may use that, name 
(o identify an entity of these classes other titan the one 
originally identitied. In the totality of the program units 
that, make up an executable program, a Cla.ss VII name 
must be associated with a (^lass V or VI name. C'lass VII 
can only exiyt locally in program units. 

in a program unit, no symbolic name can be in more 
than one class except as noted in the foregoing. There are 
no restrictions on uses of symbolic names in different pro- 
gram units of an executable program other than those noted 
in the foregoing. 

10.1.2 Implications of Mentions in Specification and 
DATA Statements. A symbolic name is in Class I if and 
only if it appears as a decl.irator name. Only one such ap- 
jjearance for a symbolic name in a program unit is permitted. 

A symbolic name that appears in a COMMON state- 
ment (otiier than as a block name) is either in Class I, or 
in ('lass II but not Class V. (8.3.1) Only one such appearance 
for a symbolic name in a program unit is permitted. 

A symbolic name that appears in an EQUIVALENCE 
statement is either in Class I, or in Class II but not Class V. 
(8.3.1). 

A symbolic name that appears in a type-statement 
cannot be in Class VI or Class VII. Only one such ap- 
pearance for a symbolic name in a program unit is permitted. 

A symbolic name that appears in an EXTERNAL 
statement is in either Class V, Class VI, or Class VII. Only 
one such appearance for a symbolic name in a program unit 
is permitted. 

A symbolic name that appears in a DATA statement is 
in either Class I, or in Class II but not Class V. (8.3.1) In an 
executable program, a storage unit (7.2.1.3.1) may have its 
value initialized one time at the most. 

10.1.3 Array and Array Element. In a program unit, 
any appearance of a symbolic name that identifies an array 
must be immediately followed by a subscript, except for 
the following cases: 

(1) In the list of an input/output statement. 

(2) In a list of dummy arguments. 

(3) In the list of actual argxunents in a reference to an 
external procedure. 

(4) In a COMMON statement. 

(5) In a type-statement. 

Only when an actual argiunent of an external procedure 
reference is an array name or an array element name may 
^the corresponding dummy argument be an array name. If 
the actual argument is an array neime, the length of the 



dummy argument array must be no greater than the length 
of the actual argument array. If the actual argument is an 
array element name, the length of the dummy argument 
array must be less than or equal to the length of the actual 
argument array plus one minus the value of the subscript 
of the array element. 

10.1.4 External Procedures. The only case when a 
symbolic name is in Class VII occurs when that name ap- 
pears only in an EXTERNAL statement and as an actual 
argument to an external procedure in a program unit. 

Only when an actual argument of an external procedure 
refercnc-e is an external procedure name may the correspond- 
ing dummy argument be an external procedure name. 

In the execution of an executable program, a procedure 
subprogram may not be referenced twice without the ex- 
ecution of a RETURN statement in that procedure having 
intervened. 

10.1.5 Subroutine. A symbolic name is in Cla.ss VI 
if it appears: 

(1) Immediately following the word SUBROUTINE 
in a SUBROUTINE statement. 

(2) Immediately following the word CALL in a CALL 
statement. 

10.1.6 Statement Function. A symbolic name is in 
(;iass 111 in a program unit if and only if it meets all three 
of the following conditions: 

(1) It does not appear in an EXTERNAL statement 
nor is it in Class I. 

(2) Every appearance of the name, except in a type- 
statement, is immediately followed by a left parenthesis. 

(3) A function defining statement (8.1.1) is present for 
that symbolic name. 

10.1.7 Intrinsic Function. A symbolic name is in 
Class IV in a program unit if and only if it meets all four 
of the following conditions: 

(1) It does not appear in an EXTERNAL statement 
nor is it in Class 1 or Class III. 

(2) The symbolic name appears in the name column of 
the table in Section 8.2. 

(3) The symbolic name does not appear in a type-state- 
ment of type different from the intrinsic type specified in 
the table. 

(4) Every appearance of the symbolic name (except in 
a type-statement as described in the foregoing) is im- 
mediately followed by an actual argument list enclosed in 
parentheses. 

The use of an intrinsic function in a program unit of an 
executable program does not preclude the use of the same 
symbolic name to identify some other entity in a different 
program unit of that executable program. 

10.1.8 External Function. A symbolic name is in 
Class V if it: 

(1) Appears immediately following the word FUNC- 
TION in a FUNCTION statement 

(2) Is not in Class I, Class III, Class IV, or Class VI 
and appears immediately followed by a left parenthesis on 
every occiu-rence except in a type-statement, in an EX- 
TERNAL statement, or as an actual argument. There 
must be at least one such appearance in the program unit in 
which it is so used. 

10.1.9 Variable. In a program unit, a symbolic name 
is in Class II if it meets all three of the following conditions: 

(1) It is not in Class VI or Class VII. 

(2) It is never immediately followed by a left paren- 
thesis unless it is immediately preceded by the word FUNC- 
TION in a FUNCTION statement. 
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(3) It occurs other than in a Class VIII appearance. 

10.1.10 Block Name. A symbolic name is in Class 
VIII if and only if it is used as a block name in a COMMON 
statement. 

10.2 Definition. There are two levels of defini- 
tion of numeric values, first level definition and second level 
definition. The concept of definition on the first level applies 
to array elements and variables; that of second level defini- 
tion to integer variables only. These concepts are defined in 
terms of progression of execution; and thus, an executable 
program, complete and in execution, is assumed in what 
follows. 

There are two other varieties of definition that should 
be noted. The first, effected by GO TO assignment and 
referring to an integer variable being defined with other than 
an integer value, is discussed in 7.1.1.3 and 7.1.2.1.2; the 
second, which refers to when an external procedure may be 
referenced, will be discussed in the next section. 

In what follows, otherwise unqualified use of the terms 
definition and undefinition (or their alternate forms) as 
applied to variables and array elements will imply modifica- 
tion by the phrase on the first level. 

10.2.1 Definition of Procedures. If an executable pro- 
gram contains information describing an external procedure, 
such an external procedure with the applicable symbolic 
name is defined for u.se in that executable program. An ex- 
ternal function reference or subroutine reference (as the 
case may be) to that symbolic name may then appear in the 
executable program, provided that number of arguments 
agrees between definition and reference. In addition, for an 
external functitm, the type of function must agree between 
definition and reference. Other restrictions on agreements 
are contained in 8.;i.l., 8.3.2, 8.4.1., 8.4.2., 10.1.3, and 10.1.4. 

The basic external functions listed in (8.3.3) are always 
defined and may be referenced subject to the restrictions 
alluded to in the foregoing. 

A symbolic name in Class III or Class IV is defined for 
such use. 

10.2.2 Associations That Effect Definition. Entities 
may become associated by; 

C) COMMON association. 

(2) EQUIVALENCE association. 

(3) Argument substitution. 

Multiple association to one or more entities can be the 
result of combinations of the foregoing. Any definition or 
undefinition of one of a set of associated entities effects the 
definition or undefinition of each entity of the entire set. 

For purposes of definition, in a program unit there is no 
association between any two entities both of which appear 
in COMMON statements. Further, there is no other as- 
sociation for common and equivalenced entities other than 
those stated in 7.2.1.3.1 and 7.2.1.4. 

If an actual argument of an external procedure reference 
is an array name, an array element name, or a variable 
name, then the discussions in 10.1.3 and 10.2.1 allow an 
association of dummy arguments with the actual arguments 
only between the time of execution of the first executable 
statement of the procedure and the inception of execution 
of the next encountered RETURN statement of that pro- 
cedure. Note specifically that this association can be carried 
through more than one level of external procedure reference. 

In what follows, variables or array elements associated 
by the information in 7.2.1.3.1 and 7.2.1.4 will be equivalent 
if and only if they are of the same type. 

If an entity of a given type becomes defined, then all 
associated entities of different type become undefined at the 



same time, while all associated entities of the same type 
become defined unless otherwise noted. 

Association by argument substitution is only valid in 
the case of identity of type, so the rule in this case is that 
an entity created by argument substitution is defined at 
time of entry if and only if the actual argument was defined. 
If an entity created by argument substitution becomes 
defined or undefined (while the association exists) during 
execution of a subprogram, then the corresponding actual 
entities in all calling program units becomes defined or un- 
defined accordingly. 

10.2.3 Events That Effect Definition. Variables and 
array elements become initially defined if and only if their 
names are associated in a data initialization statement with 
a constant of the same type as the variable or array in 
question. Any entity not initially defined is undefined at 
the time of the first execution of the first executable state- 
ment of the main program. Redefinition of a defined entity 
is always permissible except for certain integer variables 
(7.1.2.8, 7.1.3.1.1, and 7.2.1.1.2) or certain entities in sub- 
programs (6.4, 8.3.2, and 8.4.2). 

Variables and array elements become defined or rede- 
fined as follows: 

(1) Completion of execution of an arithmetic or logical 
assignment statement causes definition of the entity that 
precedes the equals. 

(2) As execution of an input statement proceeds, each 
entity, which is assigned a value of its corresponding type 
from the input medium, is defined at the time of such as- 
sociation. Only at the completion of execution of the state- 
ment do associated entities of the same type become defined. 

(3) Completion of execution of a DO statement causes 
definition of the control variable. 

(4) Inception of execution of action specified by a DO- 
implied list causes definition of the control variable. 

Variables and array elements become undefined as 
follows: 

(1) At the time a DO is satisfied, the control variable 
becomes undefined. 

(2) Completion of execution of an ASSIGN statement 
causes undefinition of the integer variable in the statement. 

(3) Certain entities in function subprograms (10.2.9) 
become undefined. 

(4) Completion of execution of action specified by a 
DO-implied list causes undefinition of the control variable. 

(5) When an associated entity of different type be- 
comes defined. 

(6) When an associated entity of the same type be- 
comes undefined. 

10.2.4 Entities in Blank Common. Entities in blank 
common and those entities associated with them may not 
be initially defined. 

Such entities, once defined by any of the rules previously 
mentioned, remain defined until they become undefined. 

10.2.5 Entities in Labeled Common. Entities in la- 
beled common or any associates of those entities may be 
initially defined. 

A program unit contains a labeled common block name 
if the name appears as a block name in the program unit. 
If a main program or referenced subprogram contains a 
labeled common block name, any entity in the block (and its 
associates) once defined remain defined until they become 
undefined. 

It should be noted that redefinition of an initially de- 
fined entity will allow later undefinition of that entity. 
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Specifically, if a subprogram contains a labeled common 
block name that is not contained in any program unit 
currently referencing the subprogram directly or indirectly, 
the execution of a RETURN statement in the subprogram 
causes undefinition of all entities in the block (and their 
associates) except for initially defined entities that have 
maintained their initial definitions. 

10.2.6 Entities Not in Common. An entity not in 
common except for a dummy argument or the value of a 
function may be initially defined. 

Such entities once defined by any of the rules previously i 
mentioned, remain defined until they become undefined. 

If such an entity is in a subprogram, the completion of 
execution of a RETURN statement in that subprogram 
causes all such entities and their associates at that time 
(except for initially defined entities that have not been 
redefined or become undefined) to become undefined. In 
this respect, it should be noted that the association between 
dummy arguments and actual arguments is terminated a^ 
the inception of execution of the RETURN statement. 

Again, it should be emphasized, the redefinition of an 
initially defined entity can result in a subsequent undef- 
inition of tliat entity. 

10.2.7 lidsic Hlnch. In a program unit, a basic block 
is a group of one or more executable statements defined as 
follows. 

The following statements are block terminal .statements: 

(1) DO statement. 

(2) ("ALL statement. 

(3) GO TO .statement of all types. 

(4) Arithmetic IF statement. 

(5) STOP statement. 

(6) RETURN statement. 

i7) The first executable statement, if it exists, preceding 
a statement whose label is mentioned in a GO TO or arith- 
metic IF statement. 

(8) An arithmetic statement in which an integer var- 
iable precedes the equals. 

(9; A READ statement with an integer variable in the 
list. 

(10) A logical IF containing any of the admissible forms 
given in the foregoing. 

The following statements are block initial statements: 

(1) The first executable statement of a program unit. 

(2) The first executable statement, if it exists, follow- 
ing a block terminal statement. 

Every block initial statement defines a basic block. If 
that initial statement is also a block terminal statement, the 
basic block consists of that one statement. Otherwise, the 
basic block consists of the initial statement and all ex- 
ecutable statements that follow until a block terminal state- 
ment is encountered. The terminal statement is included in 
the basic block. 

10.2.7.1 Last Executable Statement. In a program unit 
the last executable statement (which cannot be part of a 
logical IF) must be one of the following statements; GO TO 
statement, arithmetic IF statement, STOP statement, or 
RETURN statement. 

10.2.8 Second Level Definition. Integer variables 
must be defined on the second level when used in subscripts 
and computed GO TO statements. 

Redefinition of an integer entity causes all associated 
variables to be undefined for use on the second level during 
this execution of this program unit until the associated 
integer variable is explicitly redefined. 

Except as just noted, an integer variable is defined on 
the second level upon execution of the initial statement of 



a basic block only if both of the following conditions apply: 

(1) The variable is used in a subscript or in a computed 
GO TO in the basic block in question. 

(2) The variable is defined on the first level at the time 
of execution of the initial statement in question. 

This definition persists until one of the following 
happens: 

(1) Completion of execution of the terminal statement 
of the basic block in question. 

(2) The variable in question becomes undefined or re- 
ceives a new definition on the first level. 

At this time, the variable becomes undefined on the 
second level. 

In addition, the occurrence of an integer variable in the 
list of an input statement in which that integer variable 
appears following in a subscript causes that variable to be 
defined on the second level. This definition persists until one 
of the following happens: 

(1) Completion of execution of the terminal statement 
of the basic block containing the input statement. 

(2) The variable becomes undefined or receives a new 
definition on the first level. 

An integer variable defined as the control variable of a 
DO-implied list is defined on the second level over the range 
of that DO-implied list and only over that range. 

10.2.9 Certain Entities in Function Subprograms. If 
a function subprogram is referenced more than once with an 
identical argument list in a single statement, the execution 
of that subprogram must yield identical results for those 
cases mentioned, no matter what the order of evaluation 
of the statement. 

If a statement contains a factor that may not be 
evaluated (6.41, and if this factor contains a function ref- 
erence, then all entities that might be defined in that ref- 
erence become undefined at the completion of evaluation of 
the expression containing the factor. 

10.3 Definition Rkijuirements for Use of En- 
tities. Any variable referenced in a subscript or a com- 
puted (JO TO must be defined on the second level at the 
time of this use. 

Any variable, array element, or function referenced as a 
primary in an expression and any subroutine referenced by a 
CALL statement must be defined at the time of this use. 
In the case where an actual argument in the argument list 
of an external procedure reference is a variable name or 
an array element name, this in itself is not a requirement 
that the entity be defined at the time of the procedure 
reference; however, when such an argument is an external 
procedure name, it must be defined. 

Any variable used as an initial value, terminal value, or 
incrementation value of a DO statement or a DO-implied 
list must be defined at the time of this use. 

Any variable used to identify an input/output unit 
must be defined at the time of this use. 

At the time of execution of a RETURN statement in a 
function subprogram, the value (8.3.1) of that function must 
be defined. 

At the time of execution of an output statement, every 
entity whose value is to be transferred to the output medium 
must be defined unless the output is under control of a for- 
mat specification and the corresponding conversion code is 
A. If the output is under control of a format specification, a 
correct association of conversion code with type of entity 
is required unless the conversion code is A The following 
are the correct associations: I with integer; D with double 
precision; E, F, and G with real and complex; and L with 
logical. 
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Expression, 2-1, D-1 

External Records, 5-2 

EXTERNAL Statement, 4-2, 6-5 



F-Input, 5-5, 5-7 
F-Output, 5-5, 5-7 
Floating Point Number, 5-4, 5-5, 5-6 
Format Descriptors, 5-3, 5-10, D-2 
Format Externally Entered, 5-11 
Format List Exhausted, 5-9 
FORMAT Statement, 5-1, 5-3, 5-11 
Formatted READ, 5-1 
Formatted WRITE, 5-1 
FORTRAN Library, 6-1, 6-2 
FORTRAN Functions, 6-1, 6-3 
FORTRAN System Description, 7-1 
Function, 4-7, 6-1, 6-3, 6-4, 6-5, D-1 



i-1 



BX32 



G-lnput, 5-5, 5-7 
G-Output, 5-5, 5-7 
GO TO Statements, 3-1 

H 

H-Field Descriptors, 5-8 
Heading, 5-8 
Hollerith, 1-3, 1-4 
Hollerith Constant, 4-7 
Hollerith Input, 5-8 
Hollerith Field, 5 8 
Hollerith Output, 5-8 
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I -Type Conversion, 5-4 

Identification Field, 1-2 

IF ACCUMULATOR OVERFLOW, 3-2 

IF DIVIDE CHECK, 3-2 

1 F QUOTIENT OVERFLOW, 3-2 

IF (SENSE LIGHT m), 3-2 

IF (SENSE SWITCH m), 3-2 

IF STATEMENT, 3-2 

Implied Decimal Point, 5-6 

Implied DO Loops, 5-2 

Implied Scale Factor, 5-6 

Initialization, 4-5 

Input Data, 5-6 

Input Output Device Assignments, B-1 

Input Output Statements, 5-1, 5-2, 5-3, 5-10, D-1, D-2 

Integers, 1-4, 1-5, 2-2, 6-4 

Integer Input, 5-4 

Integer Output, 5-4 

INTEGER Statement, 4-1 

Item Trace, 4-8, 7-2 



L-Type Conversion, 5-7 

Labled COMMON, 4-3, 4-7, 6-7, 7-4 

Library Function, 6-1, 6-2, 6-4, D-1 

Library Tape, 6-1 

Line Advance Control, 5-10 

Line Continuation Field, 1-1 

Line Format, 1-1 

List, 5-2 

Listings, 7-1 

Logical Expression, 1-4, 1-5, 2-2, 2-3, 6-4 

Logical IF Statement, 3-2 

Logical Input, 5-7 

Logical Operator, 2-3, D-1 

Logical Output, 5-7 

Logical Quantity, 5-7 

LOGICAL Statement, 4-1 
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Magnetic Tape, 5-2 

Mapping, 7-2 

Matrix Order, 5-3 

Mixed Expressions, 2-2 

Mode, 2-2, 4-1, 4-2, 4-3 

Multiple Record Definitions, 5-10 

N 
Nest of DO'b, 3-3 
Non-Executable Statements, 4-1 

O 

Operation Details, 7-6 
Operator, 2-1 
Operator Hierarchy, 2-1 

P 

P Scale Factor, 5-6 
Parentheses, 2 1, 2-2 
PAUSE, 3-4 

R 

Range of a DO, 3 3 

READ Statement, 5-1 

Real, 1-4, 1-5, 6-4 

REAL Statement, 4-1 

Real Time Interrupt Capability, C-1 

Record, 5 1, 5-2, 5-3, 5-9, 5-10 

Recursive Calls, C-1 

Relational Operators, 2-2 

Repeating Format Descriptors, 5-9 

Restrictions, 4-7 

RETURN Statement, 6-4, 6-5, 6-6 

REWIND Tape, 5-1 



Sample Programs, A-1 

Scale Factor, 5-6, 5-7 

Sense Light, 3-2 

Sequence Identification, 1-2 

Shared Storage, 4-3, C-1 

Simple Arguments, 5-2 

Single Precision Floating Point, 4-1 

Source Statement, 7-4 

Special Control Lines, 1-2 

Specification of Matrix Order, 5-3 

Specification Statement, 4-1, 4-7, D-1 

Statement Number Field, 1-1, 1-2 

STOP, 3-4 

Stop Code, 5-i 

Subprogram, 4-2, 4-3, 6-1 

Subprogram Name, 4-3, 4-5 

SUBROUTINE, 4-7, 6-1, 6-3, 6-6 

Subscripts, 1-3, 2-2, 4-2 

Subscripted Variables, 1-5, 2-2 

Symbolic Instruction Statement, 7-1 

Symbolic Listings, 7-1 
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T V 

Trace Listing Format, 7-3 Variables, 1-1, 1-3, 1-5 

TRACE Statement, 4-8 Vertical Spacing, 5-9 
Tracing, 7-2, 7-3 

u W 

Unconditional GO TO Statement, 3-1 WRITE Statement, 5-1 

Unconditional Trace, 6-3 

Unformatted READ, 5-1 

Unformatted WRITE, 5-1 

Unit, 5-1, 5-2 X-Field Descriptor, 5-8 
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